* tests/numbers.test (fixnum-bit): compute dynamically.

This commit is contained in:
Rob Browning 2001-09-21 17:54:27 +00:00
commit 8b7838b558

View file

@ -50,7 +50,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)