diff options
Diffstat (limited to 'module/language/scheme/decompile-tree-il.scm')
-rw-r--r-- | module/language/scheme/decompile-tree-il.scm | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/module/language/scheme/decompile-tree-il.scm b/module/language/scheme/decompile-tree-il.scm index c065474b5..b265b936c 100644 --- a/module/language/scheme/decompile-tree-il.scm +++ b/module/language/scheme/decompile-tree-il.scm @@ -432,11 +432,6 @@ `(call-with-values (lambda () ,@(recurse-body exp)) ,(recurse (make-lambda #f '() body)))) - ((<dynwind> body winder unwinder) - `(dynamic-wind ,(recurse winder) - (lambda () ,@(recurse-body body)) - ,(recurse unwinder))) - ((<dynlet> fluids vals body) `(with-fluids ,(map list (map recurse fluids) @@ -761,10 +756,6 @@ (primitive 'call-with-values) (recurse exp) (recurse body)) - ((<dynwind> winder body unwinder) - (primitive 'dynamic-wind) - (recurse winder) (recurse body) (recurse unwinder)) - ((<dynlet> fluids vals body) (primitive 'with-fluids) (for-each recurse fluids) |