Fixed bug 172931: div and mod are bogus.
This commit is contained in:
parent
c855a0e600
commit
c00f006164
|
@ -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)])
|
||||
|
|
|
@ -1 +1 @@
|
|||
1142
|
||||
1143
|
||||
|
|
Loading…
Reference in New Issue