From 282fa962a81bc28dfece2bf0688321def2b112ad Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sat, 26 Jul 2008 15:08:13 -0700
Subject: [PATCH] fixed div0-and-mod0 bug

---
 scheme/ikarus.numerics.ss | 6 +++---
 scheme/last-revision      | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index 2492c0e..76e7424 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -3278,7 +3278,7 @@
           (if (< m (/ y 2))
               (values d m)
               (values (+ d 1) (- m y)))
-          (if (> m (/ y -2))
+          (if (>= m (/ y -2))
               (values (- d 1) (+ m y))
               (values d m)))))
   
@@ -3288,7 +3288,7 @@
           (if (< m (/ y 2))
               d
               (+ d 1))
-          (if (> m (/ y -2))
+          (if (>= m (/ y -2))
               (- d 1)
               d))))
    
@@ -3298,7 +3298,7 @@
           (if (< m (/ y 2))
               m
               (- m y))
-          (if (> m (/ y -2))
+          (if (>= m (/ y -2))
               (+ m y)
               m))))
   ) 
diff --git a/scheme/last-revision b/scheme/last-revision
index 78c9168..1fa85e6 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1556
+1557