mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

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

Browse source
This commit is contained in:
Rob Browning 2001-09-21 17:47:35 +00:00
parent b58d997870
commit 5ed969329c
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/bit-operations.test
View file

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