summaryrefslogtreecommitdiff
path: root/test-suite/tests/elisp-compiler.test
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-04-19 09:26:11 +0200
committerAndy Wingo <wingo@pobox.com>2017-04-19 09:26:11 +0200
commit5c6b3c5169d15f99676b16a2e619560ea18f59d6 (patch)
treef9907c35371061bd82459704c581d08a0bb22822 /test-suite/tests/elisp-compiler.test
parente0502f3c7711e2f505126297e66cafa43d232685 (diff)
downloadguile-5c6b3c5169d15f99676b16a2e619560ea18f59d6.tar.gz
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.
Diffstat (limited to 'test-suite/tests/elisp-compiler.test')
-rw-r--r--test-suite/tests/elisp-compiler.test2
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test
index ddfa80a9a..1157afbb9 100644
--- a/test-suite/tests/elisp-compiler.test
+++ b/test-suite/tests/elisp-compiler.test
@@ -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))