summaryrefslogtreecommitdiff
path: root/test-suite/tests/peval.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/peval.test')
-rw-r--r--test-suite/tests/peval.test14
1 files changed, 7 insertions, 7 deletions
diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test
index 7322d6120..0beeb75bd 100644
--- a/test-suite/tests/peval.test
+++ b/test-suite/tests/peval.test
@@ -874,7 +874,7 @@
(let (args) (_) ((primcall list (const 2) (const 3)))
(seq
(call (toplevel foo!) (lexical args _))
- (primcall @apply
+ (primcall apply
(lambda ()
(lambda-case
(((x y z w) #f #f #f () (_ _ _ _))
@@ -898,7 +898,7 @@
bv
(+ offset 4))))
(let ((args (list x y)))
- (@apply
+ (apply
(lambda (bv offset x y)
(bytevector-ieee-single-native-set!
bv
@@ -938,7 +938,7 @@
;; Here we ensure that non-constant expressions are not copied.
(lambda ()
(let ((args (list (foo!))))
- (@apply
+ (apply
(lambda (z x)
(list z x))
;; This toplevel ref might raise an unbound variable exception.
@@ -959,7 +959,7 @@
(lambda ()
(let ((args (list 'foo)))
(set-car! args 'bar)
- (@apply
+ (apply
(lambda (z x)
(list z x))
z
@@ -971,7 +971,7 @@
((primcall list (const foo)))
(seq
(primcall set-car! (lexical args _) (const bar))
- (primcall @apply
+ (primcall apply
(lambda . _)
(toplevel z)
(lexical args _))))))))
@@ -1106,7 +1106,7 @@
(lambda-case
((() #f vals #f () (_))
(seq (toplevel baz)
- (primcall @apply (primitive values) (lexical vals _))))))))
+ (primcall apply (primitive values) (lexical vals _))))))))
(pass-if-peval
;; Prompt is removed if tag is unreferenced
@@ -1145,7 +1145,7 @@
(const 1)
(lambda-case
((() #f args #f () (_))
- (primcall @apply
+ (primcall apply
(lexical handler _)
(lexical args _)))))))