From d83e1103c1ad51ca74a11a6d38c8c6792a4df63b Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Tue, 1 Jul 2008 09:11:37 -0500 Subject: [PATCH] rewrite-closures: remove old code --- extra/rewrite-closures/rewrite-closures.factor | 6 ------ 1 file changed, 6 deletions(-) diff --git a/extra/rewrite-closures/rewrite-closures.factor b/extra/rewrite-closures/rewrite-closures.factor index 6e30a11cfc..31b88eeaa4 100644 --- a/extra/rewrite-closures/rewrite-closures.factor +++ b/extra/rewrite-closures/rewrite-closures.factor @@ -14,16 +14,10 @@ IN: rewrite-closures \ set-parameters [ [set-parameters] ] 1 define-transform -! : parametric-quot ( parameters quot -- quot ) -! [ [ swap ] set-parameters [ ] call ] make* ; - : parametric-quot ( parameters quot -- quot ) '[ , set-parameters , call ] ; : scoped-quot ( quot -- quot ) [ with-scope ] curry ; -! : closed-quot ( quot -- quot ) -! [ namestack >r [ namestack ] set-namestack [ ] call r> set-namestack ] make* ; - : closed-quot ( quot -- quot ) namestack swap '[ namestack [ , set-namestack @ ] dip set-namestack ] ;