diff options
Diffstat (limited to 'test-suite/tests/tree-il.test')
-rw-r--r-- | test-suite/tests/tree-il.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test index 50847fd21..059cb8261 100644 --- a/test-suite/tests/tree-il.test +++ b/test-suite/tests/tree-il.test @@ -653,10 +653,10 @@ (with-test-prefix "apply" (assert-tree-il->glil - (primcall @apply (toplevel foo) (toplevel bar)) + (primcall apply (toplevel foo) (toplevel bar)) (program () (std-prelude 0 0 #f) (label _) (toplevel ref foo) (toplevel ref bar) (call tail-apply 2))) (assert-tree-il->glil - (begin (primcall @apply (toplevel foo) (toplevel bar)) (void)) + (begin (primcall apply (toplevel foo) (toplevel bar)) (void)) (program () (std-prelude 0 0 #f) (label _) (call new-frame 0) (toplevel ref apply) (toplevel ref foo) (toplevel ref bar) (mv-call 2 ,l1) (call drop 1) (branch br ,l2) (label ,l3) (mv-bind 0 #f) @@ -664,7 +664,7 @@ (void) (call return 1)) (and (eq? l1 l3) (eq? l2 l4))) (assert-tree-il->glil - (call (toplevel foo) (call (toplevel @apply) (toplevel bar) (toplevel baz))) + (call (toplevel foo) (call (toplevel apply) (toplevel bar) (toplevel baz))) (program () (std-prelude 0 0 #f) (label _) (toplevel ref foo) (call new-frame 0) (toplevel ref bar) (toplevel ref baz) (call apply 2) |