~ chicken-core (chicken-5) 82151166675a3e2d01bc26fe8c299832909b2eb1
commit 82151166675a3e2d01bc26fe8c299832909b2eb1 Author: Peter Bex <peter@more-magic.net> AuthorDate: Sun May 14 16:49:45 2017 +0200 Commit: Peter Bex <peter@more-magic.net> CommitDate: Sun May 14 16:49:45 2017 +0200 fx+?, fx-?, fx/? and fx*? are now documented diff --git a/library.scm b/library.scm index 2b98ae93..6826107a 100644 --- a/library.scm +++ b/library.scm @@ -226,11 +226,13 @@ EOF (define (fxmod x y) (##core#inline "C_fixnum_modulo" x y) ) (define (fxrem x y) (##core#inline "C_i_fixnum_remainder_checked" x y) ) -;; these are currently undocumented +;; Overflow-detecting versions of some of the above (define (fx+? x y) (##core#inline "C_i_o_fixnum_plus" x y) ) (define (fx-? x y) (##core#inline "C_i_o_fixnum_difference" x y) ) (define (fx*? x y) (##core#inline "C_i_o_fixnum_times" x y) ) -(define (fx/? x y) (##core#inline "C_i_o_fixnum_quotient" x y))) +(define (fx/? x y) (##core#inline "C_i_o_fixnum_quotient" x y)) + +) ; chicken.fixnum (import chicken.fixnum)Trap