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

kernel: higher-order effects for *keep

db4
Joe Groff 2011-10-14 10:44:42 -07:00
parent 933319f401
commit f8ec85fd06
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/kernel/kernel.factor
View File

@ -64,11 +64,14 @@ DEFER: if
: 4dip ( w x y z quot -- w x y z ) swap [ 3dip ] dip ; inline
! Keepers
: keep ( x quot -- x ) over [ call ] dip ; inline
: keep ( ..a x quot: ( ..a x -- ..b ) -- ..b x )
over [ call ] dip ; inline
: 2keep ( x y quot -- x y ) [ 2dup ] dip 2dip ; inline
: 2keep ( ..a x y quot: ( ..a x y -- ..b ) -- ..b x y )
[ 2dup ] dip 2dip ; inline
: 3keep ( x y z quot -- x y z ) [ 3dup ] dip 3dip ; inline
: 3keep ( ..a x y z quot: ( ..a x y z -- ..b ) -- ..b x y z )
[ 3dup ] dip 3dip ; inline
! Cleavers
: bi ( x p q -- )