Closed sham1 closed 3 months ago
This isn't related to equal?
, it's the compiler not supporting raw cyclic literals in the source:
This hangs as well:
((lambda (a b) #t) '#1=(#1# . #1#) '#2=(#2# . #2#))
and supporting that is a very low priority. This, however, currently gives me a segfault:
(let ((a (cons 1 2)) (b (cons 3 4)))
(set-car! a a)
(set-cdr! a a)
(set-car! b b)
(set-cdr! b b)
(equal? a b))
will take a look.
We were blowing the stack, reduced the bound in 045bb1813c0274e4110c35734682b32155e28bd3.
Earlier today, I noticed a bug when I inputted the following forms in the REPL:
Instead of this halting as expected and required by R7RS, it instead goes into an infinite loop.