From 97dfb20a53a22df9b9a6926cb9da94307ccab63e Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum 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