diff options
| author | Andy Wingo <wingo@pobox.com> | 2012-01-10 00:21:48 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2012-01-10 00:21:48 +0100 |
| commit | bbc2364a3e15fd4c7bbaf2c1c41554d7e9a87b9b (patch) | |
| tree | e978c54b99d5ab1cee681030b024f3a3b64b570e /test-suite/tests/tree-il.test | |
| parent | 296004b3ba34139292eb1d8bf54739ee1a082712 (diff) | |
| parent | cc8afa2b361635953dfba7f10e4193b1f243a50f (diff) | |
| download | guile-bbc2364a3e15fd4c7bbaf2c1c41554d7e9a87b9b.tar.gz | |
Merge commit 'cc8afa2b361635953dfba7f10e4193b1f243a50f'
Conflicts:
module/ice-9/psyntax-pp.scm
module/language/tree-il/peval.scm
Diffstat (limited to 'test-suite/tests/tree-il.test')
| -rw-r--r-- | test-suite/tests/tree-il.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test index 118dd53ec..e8945c6cc 100644 --- a/test-suite/tests/tree-il.test +++ b/test-suite/tests/tree-il.test @@ -1426,6 +1426,11 @@ (call (toplevel top) (lexical x _))))))) (pass-if-peval + ;; Constant folding: cons of #nil does not make list + (cons 1 #nil) + (primcall cons (const 1) (const '#nil))) + + (pass-if-peval ;; Constant folding: cons (begin (cons 1 2) #f) (const #f)) |