fix data/integer-set for 32-bit platforms

2015-08-07 05:25:42 -06:00 · 2015-08-07 05:25:42 -06:00 · a55eed9718
commit a55eed9718
parent 0efd052218
1 changed files with 4 additions and 1 deletions
--- a/racket/collects/data/private/count-bits-in-fixnum.rkt
+++ b/racket/collects/data/private/count-bits-in-fixnum.rkt
@ -38,7 +38,10 @@
    [(_ expr bits0)
     ;; Choose at compile time what word length is
     (let* ([bits (syntax-e #'bits0)]
-            [bits (or bits (if (fixnum? (expt 2 61)) 62 30))]
+            [bits (or bits 
+                      ;; for portable bytecode, use a fixnum size tha
+                      ;; always works:
+                      30)]
            [lut
             (cond [(<= bits 8) lut8]
                   [(<= bits 30) lut30]