mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-18 01:12:24 +02:00
Code Activity

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

Browse source
This commit is contained in:
Rob Browning 2001-09-21 17:47:43 +00:00
parent 5ed969329c
commit 10f24c2903
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/numbers.test
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)