From f6ee3618ba2cdaff303aa675364ff71f80731bb1 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Sat, 1 Mar 2008 21:48:42 -0500
Subject: [PATCH] (+ 1/2), (+ 0.5), (* 1/2) and (* 0.5) used to raise "not a
 number" errors.

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

diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index be89a15..77c6d07 100644
--- 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*)
diff --git a/scheme/last-revision b/scheme/last-revision
index a11d586..6b6f35a 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1407
+1408