diff --git a/test-suite/tests/bit-operations.test b/test-suite/tests/bit-operations.test index f319648d3..47cca5fdc 100644 --- a/test-suite/tests/bit-operations.test +++ b/test-suite/tests/bit-operations.test @@ -57,7 +57,9 @@ (define (documented? object) (not (not (object-documentation object)))) -(define fixnum-bit 30) +(define fixnum-bit + (inexact->exact (+ (/ (log (+ most-positive-fixnum 1)) (log 2)) 1))) + (define fixnum-min most-negative-fixnum) (define fixnum-max most-positive-fixnum)