fixed floating point exception in (modulo <fx> 0).

2009-06-30 04:10:51 +03:00 · 2009-06-30 04:10:51 +03:00 · 7de0f39736
parent 6e7f0ccf84
commit 7de0f39736
2 changed files with 5 additions and 2 deletions
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@ -1716,7 +1716,10 @@
      (cond
        [(fixnum? n)
         (cond
-           [(fixnum? m) ($fxmodulo n m)]
+           [(fixnum? m)
+            (if (eqv? m 0)
+                (die 'modulo "division by zero" n m)
+                ($fxmodulo n m))]
           [(bignum? m) 
            (if ($fx< n 0)
                (if ($bignum-positive? m) 
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1817
+1818