summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--test-suite/tests/peval.test8
1 files changed, 4 insertions, 4 deletions
diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test
index 400c3e7fb..5305dea72 100644
--- a/test-suite/tests/peval.test
+++ b/test-suite/tests/peval.test
@@ -754,13 +754,13 @@
;; This test checks that the `start' binding is indeed residualized.
;; See the `referenced?' procedure in peval's `prune-bindings'.
(let ((pos 0))
- (set! pos 1) ;; Cause references to `pos' to residualize.
(let ((here (let ((start pos)) (lambda () start))))
+ (set! pos 1) ;; Cause references to `pos' to residualize.
(here)))
(let (pos) (_) ((const 0))
- (begin
- (set! (lexical pos _) (const 1))
- (let (here) (_) (_)
+ (let (here) (_) (_)
+ (begin
+ (set! (lexical pos _) (const 1))
(apply (lexical here _))))))
(pass-if-peval