fix a small bug in =..

parent abfce634
......@@ -316,7 +316,7 @@ floor(x) (floor x)
(<let> ((x (<lookup> x))
(y (<scm> y)))
(cond
((or (number? x))
((or (number? x) (null? x))
(<=> (x) y))
((vector? x)
......@@ -351,10 +351,11 @@ floor(x) (floor x)
((list? y)
(<match> (#:mode -) (y)
((f . l)
(<cut>
(<let> ((f (<lookup> f)))
(cond
((procedure? f)
(<=> x ,(cons f l)))
(<=> x ,(vector (cons f l))))
((string? f)
(<let> ((g (module-ref (currrent-module) (string->symbol f))))
......@@ -375,9 +376,10 @@ floor(x) (floor x)
(instantiation_error))
(else
(type_error atom f)))))
(type_error atom f))))))
(()
(type_error list y))))
(<cut>
(type_error list y)))))
((pair? y)
(<recur> lp ((z y))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment