From ba2c9fe837499d6292d10b077ec948d91eec46e7 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Mon, 30 Jun 2008 16:29:20 -0500 Subject: [PATCH] rewrite-closures: use fry instead of make* --- extra/rewrite-closures/rewrite-closures.factor | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/extra/rewrite-closures/rewrite-closures.factor b/extra/rewrite-closures/rewrite-closures.factor index 0136d5e271..6e30a11cfc 100644 --- a/extra/rewrite-closures/rewrite-closures.factor +++ b/extra/rewrite-closures/rewrite-closures.factor @@ -1,6 +1,6 @@ USING: kernel parser math quotations namespaces sequences namespaces.lib - inference.transforms ; + inference.transforms fry ; IN: rewrite-closures @@ -19,15 +19,17 @@ IN: rewrite-closures : 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 >r [ namestack ] set-namestack [ ] call r> set-namestack ] make* ; + namestack swap '[ namestack [ , set-namestack @ ] dip set-namestack ] ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -: lambda ( parameters quot -- ) parametric-quot scoped-quot closed-quot ; +: lambda ( parameters quot -- quot ) parametric-quot scoped-quot closed-quot ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!