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

combinators.extras: adding 4bi* and 4bi@.

db4
John Benediktsson 2013-10-01 14:02:56 -07:00
parent 1cfbb02571
commit bd55cd3074
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/combinators/extras/extras.factor
View File

@ -30,6 +30,12 @@ MACRO: cleave-array ( quots -- )
: 4bi ( w x y z p q -- )
[ 4keep ] dip call ; inline
: 4bi* ( s t u v w x y z p q -- )
[ 4dip ] dip call ; inline
: 4bi@ ( s t u v w x y z quot -- )
dup 4bi* ; inline
: 4tri ( w x y z p q r -- )
[ [ 4keep ] dip 4keep ] dip call ; inline