Fixed (log -0.0) bug introduced following v1.3 release.

larcenists · Sep 8, 2017 · fef550c · fef550c
1 parent a3c388d
commit fef550c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/doc/UserManual/r7rs.txt b/doc/UserManual/r7rs.txt
@@ -199,7 +199,8 @@ Those tests have been corrected.
 The SRFIs supported by Larceny are designed to run in Larceny's
 usual R7RS mode, and are compiled in that mode when the entire
 R7RS runtime is compiled.  With the exception of SRFI 38, which
-uses R6RS lexical syntax, all of the SRFIs currently supported
+uses R6RS lexical syntax, and SRFI 48, which imports SRFI 38,
+all of the SRFIs currently supported
 by Larceny seem to work when their compiled forms are imported
 by programs running in `-r7strict` mode.  Even if they work,
 they might not behave as some programmers expect.

diff --git a/src/Lib/Common/number.sch b/src/Lib/Common/number.sch
@@ -324,7 +324,9 @@
          (i (abs (imag-part c)))
          (x (max r i))
          (y (min r i)))
-    (cond ((= x 0) 0)
+    (cond ((and (fixnum? x)
+                (= x 0))
+           0)
           ((= x 0.0) 0.0)
           (else
            (let ((y/x (/ y x)))