conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ikarus.numerics.ss
View File

@ -2734,7 +2734,7 @@
(error who "not an integer" x)) (error who "not an integer" x))
(unless (and (integer? y) (not (= y 0))) (unless (and (integer? y) (not (= y 0)))
(error who "not an integer" y)) (error who "not an integer" y))
(if (> x 0) (if (>= x 0)
(quotient+remainder x y) (quotient+remainder x y)
(if (> y 0) (if (> y 0)
(let-values ([(q r) (quotient+remainder (- x y) y)]) (let-values ([(q r) (quotient+remainder (- x y) y)])

2
scheme/last-revision
View File

@ -1 +1 @@
1142 1143