Fixed bug 172931: div and mod are bogus.

2007-11-29 18:30:20 -05:00 · 2007-11-29 18:30:20 -05:00 · c00f006164
parent c855a0e600
commit c00f006164
2 changed files with 3 additions and 3 deletions
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@ -2734,9 +2734,9 @@
      (error who "not an integer" x))
    (unless (and (integer? y) (not (= y 0)))
      (error who "not an integer" y))
-    (if (> x 0) 
+    (if (>= x 0)
        (quotient+remainder x y)
-        (if (> y 0) 
+        (if (> y 0)
            (let-values ([(q r) (quotient+remainder (- x y) y)])
              (values q (+ r y)))
            (let-values ([(q r) (quotient+remainder (+ x y) y)])
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1142
+1143