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

rewrite-closures: remove old code

db4
Eduardo Cavazos 2008-07-01 09:11:37 -05:00
parent ba2c9fe837
commit d83e1103c1
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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