diff options
author | Mark H Weaver <mhw@netris.org> | 2013-07-16 00:22:10 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2013-07-16 00:22:10 -0400 |
commit | ba0e46ea1b56ff6164daa9d5fe0778029ca3beee (patch) | |
tree | 40c2f40df62e1cc29f8e6d69e72f604785041cde /test-suite/tests | |
parent | 01329288918de3ab4b7d85d4c0c5b83b0edfc179 (diff) | |
download | guile-ba0e46ea1b56ff6164daa9d5fe0778029ca3beee.tar.gz |
numbers.test: Avoid inexact arithmetic in computation of fixnum-bit.
* test-suite/tests/numbers.test (fixnum-bit): Rewrite to avoid
inexact arithmetic.
Diffstat (limited to 'test-suite/tests')
-rw-r--r-- | test-suite/tests/numbers.test | 5 |
1 files changed, 4 insertions, 1 deletions
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) |