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