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 16:29:20 -05:00
parent ed243f21a5
commit ba2c9fe837
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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 ;
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!