From ba0e46ea1b56ff6164daa9d5fe0778029ca3beee Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Tue, 16 Jul 2013 00:22:10 -0400 Subject: [PATCH] numbers.test: Avoid inexact arithmetic in computation of fixnum-bit. * test-suite/tests/numbers.test (fixnum-bit): Rewrite to avoid inexact arithmetic. --- test-suite/tests/numbers.test | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/test-suite/tests/numbers.test b/test-suite/tests/numbers.test index f0de798a5..9a030197e 100644 --- a/test-suite/tests/numbers.test +++ b/test-suite/tests/numbers.test @@ -33,7 +33,10 @@ (not (not (object-documentation object)))) (define fixnum-bit - (inexact->exact (+ (/ (log (+ most-positive-fixnum 1)) (log 2)) 1))) + (do ((i 0 (+ 1 i)) + (n 1 (* 2 n))) + ((> n most-positive-fixnum) + (+ 1 i)))) (define fixnum-min most-negative-fixnum) (define fixnum-max most-positive-fixnum)