summaryrefslogtreecommitdiff
path: root/test-suite/tests/peval.test
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-04-26 23:08:14 +0200
committerAndy Wingo <wingo@pobox.com>2012-04-26 23:08:14 +0200
commit79d29f96c7c4631ec8096d88cbd86498f004162f (patch)
tree3cbe9c94b29c1cce72404ed23cdf640ed253f8d0 /test-suite/tests/peval.test
parentc46e0a8a598a16b8f68b5492a13e4032b93f21f9 (diff)
parent1cd63115be7a25d0ea18aaa0e1eff5658d8db77a (diff)
downloadguile-79d29f96c7c4631ec8096d88cbd86498f004162f.tar.gz
Merge commit '1cd63115be7a25d0ea18aaa0e1eff5658d8db77a'
Conflicts: module/language/tree-il/peval.scm test-suite/tests/peval.test
Diffstat (limited to 'test-suite/tests/peval.test')
-rw-r--r--test-suite/tests/peval.test12
1 files changed, 6 insertions, 6 deletions
diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test
index 310cd974e..b10bedf1f 100644
--- a/test-suite/tests/peval.test
+++ b/test-suite/tests/peval.test
@@ -760,15 +760,15 @@
;; 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))
- (seq
- (set! (lexical pos _) (const 1))
- (let (here) (_) (_)
- (call (lexical here _))))))
-
+ (let (here) (_) (_)
+ (seq
+ (set! (lexical pos _) (const 1))
+ (call (lexical here _))))))
+
(pass-if-peval
;; FIXME: should this one residualize the binding?
(letrec ((a a))