From 97dfb20a53a22df9b9a6926cb9da94307ccab63e Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sun, 2 Aug 2009 15:00:54 +0300
Subject: [PATCH] fixed incorrect error message for non-real arguments to
 negative?, positive?, and abs.

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

diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index f4228ed..3f1fb43 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -1542,7 +1542,7 @@
          (if (< n 0) 
              ($make-ratnum (- n) ($ratnum-d x))
              x))]
-      [else (die 'abs "not a number" x)]))
+      [else (die 'abs "not a real number" x)]))
 
   (define flmin
     (case-lambda
@@ -2433,7 +2433,7 @@
                    (values (inexact q) (inexact r)))]
                 [else
                  (die 'quotient+remainder "not an integer" y)]))]
-           [else (die 'quotient+remainder "not a number" y)])]
+           [else (die 'quotient+remainder "not an integer" y)])]
         [(bignum? x)
          (cond
            [(fixnum? y)
@@ -2450,7 +2450,7 @@
                    (values (inexact q) (inexact r)))]
                 [else
                  (die 'quotient+remainder "not an integer" y)]))] 
-           [else (die 'quotient+remainder "not a number" y)])]
+           [else (die 'quotient+remainder "not an integer" y)])]
         [(flonum? x) 
          (let ([v ($flonum->exact x)])
            (cond
@@ -2458,7 +2458,7 @@
               (let-values ([(q r) (quotient+remainder v y)])
                 (values (inexact q) (inexact r)))]
              [else (die 'quotient+remainder "not an integer" x)]))]
-        [else (die 'quotient+remainder "not a number" x)])))
+        [else (die 'quotient+remainder "not an integer" x)])))
 
   (define positive?
     (lambda (x)
@@ -2467,7 +2467,7 @@
         [(flonum? x) ($fl> x 0.0)]
         [(bignum? x) (positive-bignum? x)]
         [(ratnum? x) (positive? ($ratnum-n x))]
-        [else (die 'positive? "not a number" x)])))
+        [else (die 'positive? "not a real number" x)])))
 
   (define negative?
     (lambda (x)
@@ -2476,7 +2476,7 @@
         [(flonum? x) ($fl< x 0.0)]
         [(bignum? x) (not (positive-bignum? x))]
         [(ratnum? x) (negative? ($ratnum-n x))]
-        [else (die 'negative? "not a number" x)])))
+        [else (die 'negative? "not a real number" x)])))
 
   (define sinh
     (lambda (x)
diff --git a/scheme/last-revision b/scheme/last-revision
index 81435ab..c6aaf49 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1837
+1838