From 186639d091e81d001bbc85d38416315f3b6b21d3 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Wed, 31 Oct 2007 21:01:39 -0400
Subject: [PATCH] * "/" was producing "BUG:" report when given non-numebrs.  
 It now produced a better error message.

---
 scheme/ikarus.numerics.ss | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/scheme/ikarus.numerics.ss b/scheme/ikarus.numerics.ss
index 4d698ae..dd1d7d3 100644
--- a/scheme/ikarus.numerics.ss
+++ b/scheme/ikarus.numerics.ss
@@ -899,7 +899,7 @@
            [(fixnum? y) ($fl/ x ($fixnum->flonum y))]
            [(bignum? y) ($fl/ x (bignum->flonum y))]
            [(ratnum? y) ($fl/ x (ratnum->flonum y))]
-           [else (error '/ "BUG: unspported" x y)])]
+           [else (error '/ "not a number" y)])]
         [(fixnum? x)
          (cond
            [(flonum? y) ($fl/ ($fixnum->flonum x) y)]
@@ -941,7 +941,7 @@
                         (binary- 0 (quotient y g))))]))]
            [(ratnum? y) 
             (/ (* x ($ratnum-d y)) ($ratnum-n y))]
-           [else (error '/ "BUG: unsupported" x y)])]
+           [else (error '/ "not a number" y)])]
         [(bignum? x) 
          (cond
            [(fixnum? y) 
@@ -1020,7 +1020,7 @@
               [($fx= n 1) d]
               [($fx= n -1) (- d)]
               [else ($make-ratnum d n)]))]
-         [else (error '/ "BUG: unspported argument" x)])]
+         [else (error '/ "not a number" x)])]
       [(x y z . rest)
        (let f ([a (binary/ x y)] [b z] [ls rest])
          (cond