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

2008-03-01 21:48:42 -05:00 · 2008-03-01 21:48:42 -05:00 · f6ee3618ba
parent db54cd0074
commit f6ee3618ba
2 changed files with 3 additions and 3 deletions
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@ -676,7 +676,7 @@
      [(a)
       (cond
         [(fixnum? a) a]
-         [(bignum? a) a]
+         [(number? a) a]
         [else (die '+ "not a number" a)])]
      [() 0]
      [(a b c d . e*)
@ -730,7 +730,7 @@
      [(a)
       (cond
         [(fixnum? a) a]
-         [(bignum? a) a]
+         [(number? a) a]
         [else (die '* "not a number" a)])]
      [() 1]
      [(a b c d . e*)
--- a/scheme/last-revision
+++ b/scheme/last-revision
@ -1 +1 @@
-1407
+1408