Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +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));")
(define (fxlength i)
(ceiling (/ (log (if (fxnegative? i)
(fxneg i)
(fx+ 1 i)))
(log 2))))
(exact
(ceiling (/ (log (if (fxnegative? i)
(fxneg i)
(fx+ 1 i)))
(log 2)))))
(define (fxif mask n0 n1)
(fxior (fxand mask n0)