From 476a0cb6d8bc3768806daa125958f5dfcae530fd Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Mon, 11 Aug 2008 13:38:28 -0700 Subject: [PATCH] fixed small bug in rationalize --- scheme/ikarus.numerics.ss | 2 +- scheme/last-revision | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss index f7ceb49..573dbf6 100644 --- a/scheme/ikarus.numerics.ss +++ b/scheme/ikarus.numerics.ss @@ -3266,7 +3266,7 @@ (let ([n (numerator x)] [d (denominator x)] [n^ (numerator y)] [d^ (denominator y)]) (- (simplest^ (- n^) d^ (- n) d)))] - [else 1])) + [else 0])) (define (simplest^ n d n^ d^) (let-values ([(q r) (div-and-mod n d)]) (if (= r 0) diff --git a/scheme/last-revision b/scheme/last-revision index b1e142d..5882485 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1584 +1585