Fixed fxreverse-fixnum error (ticket #787).

larcenists · May 24, 2017 · 52d391e · 52d391e
1 parent 66a0544
commit 52d391e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tools/R6RS/r6rs/arithmetic/fixnums.body.scm b/tools/R6RS/r6rs/arithmetic/fixnums.body.scm
@@ -446,7 +446,7 @@
 
 (define (fxreverse-fixnum fx k)
   (if (negative? fx)
-      (+ 1 (fxreverse-fixnum (- fx (least-fixnum))))
+      (+ 1 (fxreverse-fixnum (- fx (least-fixnum)) k))
       (let loop ((fx fx)
                  (i (- k 1))
                  (bits 0)