Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #519 - Fix fxlength

Browse source
This commit is contained in:
Justin Ethier 2024-01-08 19:00:39 -08:00
parent e4992492b3
commit e7725a2a36
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
srfi/143.sld
View file

@ -158,10 +158,11 @@
return_closcall1(data, k, obj_int2obj(count));") return_closcall1(data, k, obj_int2obj(count));")
(define (fxlength i) (define (fxlength i)
(ceiling (/ (log (if (fxnegative? i) (exact
(fxneg i) (ceiling (/ (log (if (fxnegative? i)
(fx+ 1 i))) (fxneg i)
(log 2)))) (fx+ 1 i)))
(log 2)))))
(define (fxif mask n0 n1) (define (fxif mask n0 n1)
(fxior (fxand mask n0) (fxior (fxand mask n0)