diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-11 16:40:49 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-11 16:40:49 +0100 |
commit | 4f2b34ff640060ec7e75a922db110d7850b6c1c7 (patch) | |
tree | 6d1468832b8c8308a4df18dacd611c02733237b6 | |
parent | 16371014d6231394dbfc9c5cc9dfcceabd8bc234 (diff) | |
parent | 020602791b3f929e2d65ffdd8d67977763d6883e (diff) | |
download | guile-4f2b34ff640060ec7e75a922db110d7850b6c1c7.tar.gz |
Merge remote-tracking branch 'origin/stable-2.0'
-rw-r--r-- | test-suite/tests/tree-il.test | 4 |
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))) |