(/ 1 1 1 1) fails

[Pinku Surana]

> (/ 1 1 1 1)
Unhandled exception
 Condition components:
   1. &assertion
   2. &who: cdr
   3. &message: "argument does not have required pair structure"
   4. &irritants: (())

The bug is in ikarus.numerics.ss:

=== modified file 'scheme/ikarus.numerics.ss'
--- scheme/ikarus.numerics.ss 2008-06-28 09:25:44 +0000
+++ scheme/ikarus.numerics.ss 2008-06-28 15:20:21 +0000
@@ -1290,7 +1290,7 @@
       [(x y z . rest)
        (let f ([a (binary/ x y)] [b z] [ls rest])
          (cond
- [(null? rest) (binary/ a b)]
+ [(null? ls) (binary/ a b)]
            [else (f (binary/ a b) (car ls) (cdr ls))]))]))

[Abdulaziz Ghuloum (aghuloum)]

Thanks. Fixed in 1526.