~ 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