conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed small bug in rationalize

This commit is contained in:
Abdulaziz Ghuloum 2008-08-11 13:38:28 -07:00
parent c64fda7619
commit 476a0cb6d8
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/ikarus.numerics.ss
View File

@ -3266,7 +3266,7 @@
(let ([n (numerator x)] [d (denominator x)] (let ([n (numerator x)] [d (denominator x)]
[n^ (numerator y)] [d^ (denominator y)]) [n^ (numerator y)] [d^ (denominator y)])
(- (simplest^ (- n^) d^ (- n) d)))] (- (simplest^ (- n^) d^ (- n) d)))]
[else 1])) [else 0]))
(define (simplest^ n d n^ d^) (define (simplest^ n d n^ d^)
(let-values ([(q r) (div-and-mod n d)]) (let-values ([(q r) (div-and-mod n d)])
(if (= r 0) (if (= r 0)

2
scheme/last-revision
View File

@ -1 +1 @@
1584 1585