From 5210f1448bd98c2e7e652180e3724cf779fbd684 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sat, 1 Mar 2008 21:54:27 -0500
Subject: [PATCH] Fixed part of bug 162334.  Reason: (inexact -1/2) lost the
 sign and returned 0.5.  It now correctly return -0.5.

---
 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 77c6d07..f61a968 100644
--- 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+
diff --git a/scheme/last-revision b/scheme/last-revision
index 6b6f35a..08507bb 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1408
+1409