search

picrin-scheme / picrin

lightweight scheme interpreter
MIT License
414 stars 35 forks source link

`equal?` has a bug #312

Closed KeenS closed 8 years ago

KeenS commented 8 years ago 
(define l (list 1 1))
(set-cdr! l l)
(equal? l '(1 1 1 1 1 1 2))

returns #t

KeenS commented 8 years ago

already fixed