summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-11 16:39:28 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-11 16:39:28 +0100
commit020602791b3f929e2d65ffdd8d67977763d6883e (patch)
treea4abcb4dda41956b20fbb9431ecbcf577d61c95b
parent39c5363b4fbd32f1c895e8fa8b0c8dd067907947 (diff)
downloadguile-020602791b3f929e2d65ffdd8d67977763d6883e.tar.gz
update letrec compilation test
* test-suite/tests/tree-il.test ("letrec"): Update to clear the temporary `let' bindings.
-rw-r--r--test-suite/tests/tree-il.test4
1 files changed, 3 insertions, 1 deletions
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test
index e9ac34f8f..5e02bd175 100644
--- a/test-suite/tests/tree-il.test
+++ b/test-suite/tests/tree-il.test
@@ -399,7 +399,9 @@
(call new-frame 0) (toplevel ref bar) (call call 0)
(bind (x #f 2) (y #f 3)) (lexical #t #f set 3) (lexical #t #f set 2)
(lexical #t #f ref 2) (lexical #t #t set 0)
- (lexical #t #f ref 3) (lexical #t #t set 1) (unbind)
+ (lexical #t #f ref 3) (lexical #t #t set 1)
+ (void) (lexical #t #f set 2) (void) (lexical #t #f set 3) ;; clear bindings
+ (unbind)
(lexical #t #t ref 0) (lexical #t #t ref 1)
(call add 2) (call return 1) (unbind)))