fixed small bug in rationalize

2008-08-11 13:38:28 -07:00 · 2008-08-11 13:38:28 -07:00 · 476a0cb6d8
parent c64fda7619
commit 476a0cb6d8
2 changed files with 2 additions and 2 deletions
--- 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) 
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1584
+1585