From 020602791b3f929e2d65ffdd8d67977763d6883e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 11 Nov 2011 16:39:28 +0100 Subject: [PATCH] update letrec compilation test * test-suite/tests/tree-il.test ("letrec"): Update to clear the temporary `let' bindings. --- test-suite/tests/tree-il.test | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)))