diff options
author | Andy Wingo <wingo@pobox.com> | 2011-11-09 17:04:44 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-11-09 17:04:44 +0100 |
commit | 2f4aae6bce7986ad724b374d1a72a6d4c48b462c (patch) | |
tree | af7978f1b978e2f56b4e6131bce5d04f3f81bb3f /module/language/tree-il.scm | |
parent | 215fe3a89119319fa0bb953ede574b38bea143ab (diff) | |
parent | acdf4fcc059df325f66698090359b3455725c865 (diff) | |
download | guile-2f4aae6bce7986ad724b374d1a72a6d4c48b462c.tar.gz |
Merge remote-tracking branch 'origin/stable-2.0'
Conflicts:
module/language/tree-il/peval.scm
module/language/tree-il/primitives.scm
test-suite/tests/tree-il.test
Diffstat (limited to 'module/language/tree-il.scm')
-rw-r--r-- | module/language/tree-il.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/language/tree-il.scm b/module/language/tree-il.scm index cd6b01e93..1723525f1 100644 --- a/module/language/tree-il.scm +++ b/module/language/tree-il.scm @@ -332,9 +332,9 @@ ((<let-values> exp body) `(let-values ,(unparse-tree-il exp) ,(unparse-tree-il body))) - ((<dynwind> body winder unwinder) - `(dynwind ,(unparse-tree-il body) - ,(unparse-tree-il winder) ,(unparse-tree-il unwinder))) + ((<dynwind> winder body unwinder) + `(dynwind ,(unparse-tree-il winder) ,(unparse-tree-il body) + ,(unparse-tree-il unwinder))) ((<dynlet> fluids vals body) `(dynlet ,(map unparse-tree-il fluids) ,(map unparse-tree-il vals) |