summaryrefslogtreecommitdiff
path: root/module/language/tree-il/analyze.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/analyze.scm')
-rw-r--r--module/language/tree-il/analyze.scm6
1 files changed, 0 insertions, 6 deletions
diff --git a/module/language/tree-il/analyze.scm b/module/language/tree-il/analyze.scm
index 84a044ce2..1fbeb2c65 100644
--- a/module/language/tree-il/analyze.scm
+++ b/module/language/tree-il/analyze.scm
@@ -337,9 +337,6 @@
((<let-values> exp body)
(lset-union eq? (step exp) (step body)))
- ((<dynwind> winder body unwinder)
- (lset-union eq? (step winder) (step body) (step unwinder)))
-
((<dynlet> fluids vals body)
(apply lset-union eq? (step body) (map step (append fluids vals))))
@@ -511,9 +508,6 @@
((<let-values> exp body)
(max (recur exp) (recur body)))
- ((<dynwind> winder body unwinder)
- (max (recur winder) (recur body) (recur unwinder)))
-
((<dynlet> fluids vals body)
(apply max (recur body) (map recur (append fluids vals))))