Fix portable-fixnum?.

2011-01-12 09:58:10 -05:00 · 2011-01-12 09:58:10 -05:00 · 7808be5e20
commit 7808be5e20
parent 324d1aa440
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/typecheck/tc-expr-unit.rkt
+++ b/collects/typed-scheme/typecheck/tc-expr-unit.rkt
@ -28,7 +28,7 @@
 (define (portable-fixnum? n)
  (and (exact-integer? n)
       (< n (expt 2 30))
-       (> n (- (expt 2 30)))))
+       (>= n (- (expt 2 30)))))

 ;; return the type of a literal value
 ;; scheme-value -> type