conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed incorrect error message for non-real arguments to negative?, 

positive?, and abs.
This commit is contained in:
Abdulaziz Ghuloum 2009-08-02 15:00:54 +03:00
parent e3ce873118
commit 97dfb20a53
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scheme/ikarus.numerics.ss
View File

@ -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)

2
scheme/last-revision
View File

@ -1 +1 @@
1837
1838