summaryrefslogtreecommitdiff
path: root/module/language/tree-il.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-11-09 17:04:44 +0100
committerAndy Wingo <wingo@pobox.com>2011-11-09 17:04:44 +0100
commit2f4aae6bce7986ad724b374d1a72a6d4c48b462c (patch)
treeaf7978f1b978e2f56b4e6131bce5d04f3f81bb3f /module/language/tree-il.scm
parent215fe3a89119319fa0bb953ede574b38bea143ab (diff)
parentacdf4fcc059df325f66698090359b3455725c865 (diff)
downloadguile-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.scm6
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)