summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-04-13 15:13:19 -0700
committerAndy Wingo <wingo@pobox.com>2012-04-23 21:52:24 +0200
commit1cd63115be7a25d0ea18aaa0e1eff5658d8db77a (patch)
tree990f91653457e8280d96249f0a397afefcb6dcdd
parenta36e7870c31322fd300c7478df24dbf559a0d67b (diff)
downloadguile-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.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