summaryrefslogtreecommitdiff
path: root/module/language/tree-il/effects.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/effects.scm')
-rw-r--r--module/language/tree-il/effects.scm4
1 files changed, 0 insertions, 4 deletions
diff --git a/module/language/tree-il/effects.scm b/module/language/tree-il/effects.scm
index b9b34a11c..170c89669 100644
--- a/module/language/tree-il/effects.scm
+++ b/module/language/tree-il/effects.scm
@@ -211,10 +211,6 @@ of an expression."
(logior (compute-effects producer)
(compute-effects consumer)
(cause &type-check)))
- (($ <dynwind> _ winder body unwinder)
- (logior (compute-effects winder)
- (compute-effects body)
- (compute-effects unwinder)))
(($ <dynlet> _ fluids vals body)
(logior (accumulate-effects fluids)
(accumulate-effects vals)