diff options
author | Andy Wingo <wingo@pobox.com> | 2012-04-26 23:08:14 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-04-26 23:08:14 +0200 |
commit | 79d29f96c7c4631ec8096d88cbd86498f004162f (patch) | |
tree | 3cbe9c94b29c1cce72404ed23cdf640ed253f8d0 /test-suite/tests/peval.test | |
parent | c46e0a8a598a16b8f68b5492a13e4032b93f21f9 (diff) | |
parent | 1cd63115be7a25d0ea18aaa0e1eff5658d8db77a (diff) | |
download | guile-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.test | 12 |
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)) |