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

Fix portable-fixnum?.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-01-12 09:58:10 -05:00
parent 324d1aa440
commit 7808be5e20
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/typecheck/tc-expr-unit.rkt
View File

@ -28,7 +28,7 @@
(define (portable-fixnum? n) (define (portable-fixnum? n)
(and (exact-integer? n) (and (exact-integer? n)
(< n (expt 2 30)) (< n (expt 2 30))
(> n (- (expt 2 30))))) (>= n (- (expt 2 30)))))
;; return the type of a literal value ;; return the type of a literal value
;; scheme-value -> type ;; scheme-value -> type