(/ 1 1 1 1) fails
Bug #243743 reported by
Pinku Surana
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
Ikarus Scheme |
Fix Committed
|
Low
|
Abdulaziz Ghuloum |
Bug Description
> (/ 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/
--- scheme/
+++ scheme/
@@ -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))]))]))
Related branches
Changed in ikarus: | |
milestone: | none → 0.0.4 |
To post a comment you must log in.
Thanks. Fixed in 1526.