diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-11 16:39:28 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-11 16:39:28 +0100 |
commit | 020602791b3f929e2d65ffdd8d67977763d6883e (patch) | |
tree | a4abcb4dda41956b20fbb9431ecbcf577d61c95b | |
parent | 39c5363b4fbd32f1c895e8fa8b0c8dd067907947 (diff) | |
download | guile-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.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 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))) |