Fix to use mutable objects

This commit is contained in:
Justin Ethier 2019-05-14 13:07:16 -04:00
parent f2b9658b21
commit 7fc911069d

View file

@ -105,8 +105,8 @@
(assert:equal "set local x" x #t)) (assert:equal "set local x" x #t))
#f) #f)
(define a '(#f #f)) (define a (list #f #f))
(define b '(#f . #f)) (define b (cons #f #f))
(set-car! a 1) (set-car! a 1)
(set-cdr! a '(2)) (set-cdr! a '(2))