summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-11 16:40:49 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-11 16:40:49 +0100
commit4f2b34ff640060ec7e75a922db110d7850b6c1c7 (patch)
tree6d1468832b8c8308a4df18dacd611c02733237b6
parent16371014d6231394dbfc9c5cc9dfcceabd8bc234 (diff)
parent020602791b3f929e2d65ffdd8d67977763d6883e (diff)
downloadguile-4f2b34ff640060ec7e75a922db110d7850b6c1c7.tar.gz
Merge remote-tracking branch 'origin/stable-2.0'
-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 6733f74ec..8d125f52b 100644
--- a/test-suite/tests/tree-il.test
+++ b/test-suite/tests/tree-il.test
@@ -396,7 +396,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)))