summaryrefslogtreecommitdiff
path: root/module/language/tree-il/cse.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/cse.scm')
-rw-r--r--module/language/tree-il/cse.scm9
1 files changed, 0 insertions, 9 deletions
diff --git a/module/language/tree-il/cse.scm b/module/language/tree-il/cse.scm
index 4c50114fe..31947dd0d 100644
--- a/module/language/tree-il/cse.scm
+++ b/module/language/tree-il/cse.scm
@@ -442,15 +442,6 @@
((consumer db**) (visit consumer (concat db* db) env ctx)))
(return (make-let-values src producer consumer)
(concat db** db*))))
- (($ <dynwind> src winder body unwinder)
- (let*-values (((winder db*) (visit winder db env 'value))
- ((db**) db*)
- ((unwinder db*) (visit unwinder db env 'value))
- ((db**) (concat db* db**))
- ((body db*) (visit body (concat db** db) env ctx))
- ((db**) (concat db* db**)))
- (return (make-dynwind src winder body unwinder)
- db**)))
(($ <dynlet> src fluids vals body)
(let*-values (((fluids db*) (parallel-visit fluids db env 'value))
((vals db**) (parallel-visit vals db env 'value))