mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +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:54:35 +00:00
parent 8b7838b558
commit af297b33d8
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)