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

fixed div0-and-mod0 bug

This commit is contained in:
Abdulaziz Ghuloum 2008-07-26 15:08:13 -07:00
parent 4ee88498a9
commit 282fa962a8
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/ikarus.numerics.ss
View File

@ -3278,7 +3278,7 @@
(if (< m (/ y 2)) (if (< m (/ y 2))
(values d m) (values d m)
(values (+ d 1) (- m y))) (values (+ d 1) (- m y)))
(if (> m (/ y -2)) (if (>= m (/ y -2))
(values (- d 1) (+ m y)) (values (- d 1) (+ m y))
(values d m))))) (values d m)))))
@ -3288,7 +3288,7 @@
(if (< m (/ y 2)) (if (< m (/ y 2))
d d
(+ d 1)) (+ d 1))
(if (> m (/ y -2)) (if (>= m (/ y -2))
(- d 1) (- d 1)
d)))) d))))
@ -3298,7 +3298,7 @@
(if (< m (/ y 2)) (if (< m (/ y 2))
m m
(- m y)) (- m y))
(if (> m (/ y -2)) (if (>= m (/ y -2))
(+ m y) (+ m y)
m)))) m))))
) )

2
scheme/last-revision
View File

@ -1 +1 @@
1556 1557