From ed243f21a5191103ea82705ad708405c78c97111 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Mon, 30 Jun 2008 12:09:05 -0500 Subject: [PATCH] rewrite-closures: use fry instead of make* --- extra/rewrite-closures/rewrite-closures.factor | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/extra/rewrite-closures/rewrite-closures.factor b/extra/rewrite-closures/rewrite-closures.factor index ccd3989d1a..0136d5e271 100644 --- a/extra/rewrite-closures/rewrite-closures.factor +++ b/extra/rewrite-closures/rewrite-closures.factor @@ -14,8 +14,11 @@ 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 ) +! [ [ swap ] set-parameters [ ] call ] make* ; + +: parametric-quot ( parameters quot -- quot ) '[ , set-parameters , call ] ; + : scoped-quot ( quot -- quot ) [ with-scope ] curry ;