Fixed bug 172931: div and mod are bogus.

This commit is contained in:
Abdulaziz Ghuloum 2007-11-29 18:30:20 -05:00
parent c855a0e600
commit c00f006164
2 changed files with 3 additions and 3 deletions

View File

@ -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)])

View File

@ -1 +1 @@
1142
1143