diff options
Diffstat (limited to 'module/language/tree-il/cse.scm')
-rw-r--r-- | module/language/tree-il/cse.scm | 9 |
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)) |