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

returned 0.5. It now correctly return -0.5.
2008-03-01 21:54:27 -05:00 · 2008-03-01 21:54:27 -05:00 · 5210f1448b
parent f6ee3618ba
commit 5210f1448b
2 changed files with 2 additions and 2 deletions
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@ -482,7 +482,7 @@
    (let ([n ($ratnum-n num)] [d ($ratnum-d num)])
      (if (> n 0) 
          (pos n d)
-          (- (pos n d)))))
+          (- (pos (- n) d)))))


  (define binary+
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1408
+1409