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

(+ 1/2), (+ 0.5), (* 1/2) and (* 0.5) used to raise "not a number" errors.

This commit is contained in:
Abdulaziz Ghuloum 2008-03-01 21:48:42 -05:00
parent db54cd0074
commit f6ee3618ba
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/ikarus.numerics.ss
View File

@ -676,7 +676,7 @@
[(a) [(a)
(cond (cond
[(fixnum? a) a] [(fixnum? a) a]
[(bignum? a) a] [(number? a) a]
[else (die '+ "not a number" a)])] [else (die '+ "not a number" a)])]
[() 0] [() 0]
[(a b c d . e*) [(a b c d . e*)
@ -730,7 +730,7 @@
[(a) [(a)
(cond (cond
[(fixnum? a) a] [(fixnum? a) a]
[(bignum? a) a] [(number? a) a]
[else (die '* "not a number" a)])] [else (die '* "not a number" a)])]
[() 1] [() 1]
[(a b c d . e*) [(a b c d . e*)

2
scheme/last-revision
View File

@ -1 +1 @@
1407 1408