From c00f006164d36113a923d2d5c1af182b0c6dccdd Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Thu, 29 Nov 2007 18:30:20 -0500 Subject: [PATCH] Fixed bug 172931: div and mod are bogus. --- scheme/ikarus.numerics.ss | 4 ++-- scheme/last-revision | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss index 0ed47ed..b987190 100644 --- a/scheme/ikarus.numerics.ss +++ b/scheme/ikarus.numerics.ss @@ -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)]) diff --git a/scheme/last-revision b/scheme/last-revision index b4fd007..e29bf83 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1142 +1143