From bd55cd307438a4c90b79d7d5f77f28c28d66905b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 1 Oct 2013 14:02:56 -0700
Subject: [PATCH] combinators.extras: adding 4bi* and 4bi@.

---
 extra/combinators/extras/extras.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor
index 4bb67a5835..81e49b89f3 100644
--- a/extra/combinators/extras/extras.factor
+++ b/extra/combinators/extras/extras.factor
@@ -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