1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00

Fix test suite for constant literals change

* test-suite/tests/elisp-compiler.test ("List Built-Ins"): Avoid
  mutating a literal pair.  If this turns out to be necessary for elisp,
  the compiler will have to compile literals to calls to run-time heap
  allocations rather than constants.
This commit is contained in:
Andy Wingo 2017-04-19 09:26:11 +02:00
parent e0502f3c77
commit 5c6b3c5169

View file

@ -621,7 +621,7 @@
(and (equal (reverse '(5 4 3 2 1)) '(1 2 3 4 5))
(equal (reverse '()) '())))
(pass-if "setcar and setcdr"
(progn (setq pair '(1 . 2))
(progn (setq pair (cons 1 2))
(setq copy pair)
(setq a (setcar copy 3))
(setq b (setcdr copy 4))