From 1ebd4f4d9a553caa8dfd559363d79b96f6a9bc86 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sat, 3 Jan 2009 20:03:04 -0500
Subject: [PATCH] fixed minor bug in "->inexact" helper.

---
 scheme/ikarus.numerics.ss | 4 ++--
 scheme/last-revision      | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index d089031..81ca0b5 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -1514,8 +1514,8 @@
       [(flonum? x) x]
       [(compnum? x) 
        (make-rectangular 
-         (->inexact (real-part x))
-         (->inexact (imag-part x)))]
+         (->inexact (real-part x) who)
+         (->inexact (imag-part x) who))]
       [(cflonum? x) x]
       [else
        (die who "not a number" x)]))
diff --git a/scheme/last-revision b/scheme/last-revision
index 173a668..741f5d6 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1737
+1738