steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

rewrite-closures: use fry instead of make*

db4
Eduardo Cavazos 2008-06-30 12:09:05 -05:00
parent 09fb8d878b
commit ed243f21a5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/rewrite-closures/rewrite-closures.factor
View File

@ -14,8 +14,11 @@ IN: rewrite-closures
\ set-parameters [ [set-parameters] ] 1 define-transform \ set-parameters [ [set-parameters] ] 1 define-transform
: parametric-quot ( parameters quot -- quot ) ! : parametric-quot ( parameters quot -- quot )
[ [ swap ] set-parameters [ ] call ] make* ; ! [ [ swap ] set-parameters [ ] call ] make* ;
: parametric-quot ( parameters quot -- quot ) '[ , set-parameters , call ] ;
: scoped-quot ( quot -- quot ) [ with-scope ] curry ; : scoped-quot ( quot -- quot ) [ with-scope ] curry ;