suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix r6rs fixnum-width

Browse Source 
svn: r9856
This commit is contained in:
Matthew Flatt 2008-05-15 18:59:53 +00:00
parent 4effd7b897
commit 84d010b567
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/rnrs/arithmetic/fixnums-6.ss
View File

@ -25,7 +25,7 @@
(define 64-bit? (fixnum? (expt 2 33)))
(define (fixnum-width) (if 64-bit? 62 30))
(define (fixnum-width) (if 64-bit? 63 31))
(define (least-fixnum) (if 64-bit? (- (expt 2 62)) -1073741824))
(define (greatest-fixnum) (if 64-bit? (- (expt 2 62) 1) +1073741823))

3
collects/tests/r6rs/arithmetic/fixnums.ss
View File

@ -51,6 +51,9 @@
;; ----------------------------------------
(test (least-fixnum) (- (expt 2 (- (fixnum-width) 1))))
(test (greatest-fixnum) (- (expt 2 (- (fixnum-width) 1)) 1))
(test (fixnum? 1.0) #f)
(test (fixnum? 1+1i) #f)