summaryrefslogtreecommitdiff
path: root/test-suite/tests/tree-il.test
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-03-26 00:56:29 +0200
committerAndy Wingo <wingo@pobox.com>2012-03-26 00:56:29 +0200
commitc8ab29ac8e32f3f68efe1652e27d4a4cb2d90f4e (patch)
treef40e9c3c0ffaa34c35dd80f29c46bda1f920c1d6 /test-suite/tests/tree-il.test
parent01e909d90a130f4987b70edae2dbd5a2b33edae7 (diff)
parenta8004dcb4d7148ec66cbaa109a18715d757700eb (diff)
downloadguile-c8ab29ac8e32f3f68efe1652e27d4a4cb2d90f4e.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
Conflicts: libguile/procprop.c libguile/smob.c libguile/smob.h libguile/vm.c module/language/tree-il/primitives.scm
Diffstat (limited to 'test-suite/tests/tree-il.test')
-rw-r--r--test-suite/tests/tree-il.test10
1 files changed, 9 insertions, 1 deletions
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test
index 4dbe310f5..47289c3c9 100644
--- a/test-suite/tests/tree-il.test
+++ b/test-suite/tests/tree-il.test
@@ -1598,7 +1598,15 @@
(lambda _
(lambda-case
(((x y) #f #f #f () (_ _))
- _)))))
+ _))))
+
+ (pass-if-peval resolve-primitives
+ ((@ (guile) car) '(1 2))
+ (const 1))
+
+ (pass-if-peval resolve-primitives
+ ((@@ (guile) car) '(1 2))
+ (const 1)))