Issue #519 - Fix fxlength

justinethier · Jan 9, 2024 · e7725a2 · e7725a2
1 parent e499249
commit e7725a2
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/srfi/143.sld b/srfi/143.sld
@@ -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)