summaryrefslogtreecommitdiff
path: root/test-suite/tests
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2013-07-16 00:22:10 -0400
committerMark H Weaver <mhw@netris.org>2013-07-16 00:22:10 -0400
commitba0e46ea1b56ff6164daa9d5fe0778029ca3beee (patch)
tree40c2f40df62e1cc29f8e6d69e72f604785041cde /test-suite/tests
parent01329288918de3ab4b7d85d4c0c5b83b0edfc179 (diff)
downloadguile-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.test5
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)