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

Fixed part of bug 162334. Reason: (inexact -1/2) lost the sign and 

returned 0.5.  It now correctly return -0.5.
This commit is contained in:
Abdulaziz Ghuloum 2008-03-01 21:54:27 -05:00
parent f6ee3618ba
commit 5210f1448b
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

@ -482,7 +482,7 @@
(let ([n ($ratnum-n num)] [d ($ratnum-d num)]) (let ([n ($ratnum-n num)] [d ($ratnum-d num)])
(if (> n 0) (if (> n 0)
(pos n d) (pos n d)
(- (pos n d))))) (- (pos (- n) d)))))
(define binary+ (define binary+

2
scheme/last-revision
View File

@ -1 +1 @@
1408 1409