mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 08:20:20 +02:00
Code Activity

update letrec compilation test

Browse source 
* test-suite/tests/tree-il.test ("letrec"): Update to clear the
  temporary `let' bindings.
This commit is contained in:
Andy Wingo 2011-11-11 16:39:28 +01:00
parent 39c5363b4f
commit 020602791b
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
test-suite/tests/tree-il.test
View file

@ -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)))