diff options
author | Andy Wingo <wingo@pobox.com> | 2012-04-13 15:13:19 -0700 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-04-23 21:52:24 +0200 |
commit | 1cd63115be7a25d0ea18aaa0e1eff5658d8db77a (patch) | |
tree | 990f91653457e8280d96249f0a397afefcb6dcdd | |
parent | a36e7870c31322fd300c7478df24dbf559a0d67b (diff) | |
download | guile-1cd63115be7a25d0ea18aaa0e1eff5658d8db77a.tar.gz |
minor tweaks to a peval test
* test-suite/tests/peval.test: Update mutable var test to really ensure
that the function can't inline.
-rw-r--r-- | test-suite/tests/peval.test | 8 |
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 |