combinators.extras: adding 4bi and 4tri.

2013-09-23 16:51:31 -07:00 · 2013-09-23 16:51:31 -07:00 · 9b3fa8407b
parent 7bc62f4c7c
commit 9b3fa8407b
1 changed files with 6 additions and 0 deletions
--- a/extra/combinators/extras/extras.factor
+++ b/extra/combinators/extras/extras.factor
@ -27,6 +27,12 @@ MACRO: cleave-array ( quots -- )
 : 3bi@ ( u v w x y z quot -- )
    dup 3bi* ; inline

+: 4bi ( w x y z p q -- )
+    [ 4keep ] dip call ; inline
+
+: 4tri ( w x y z p q r -- )
+    [ [ 4keep ] dip 4keep ] dip call ; inline
+
 : keepd ( ..a x y quot: ( ..a x y -- ..b ) -- ..b x )
    2keep drop ; inline