add 2bi*

2008-03-19 16:20:14 -05:00 · 2008-03-19 16:20:14 -05:00 · 077df62492
parent 274c7d8cad
commit 077df62492
1 changed files with 2 additions and 0 deletions
--- a/extra/combinators/cleave/cleave.factor
+++ b/extra/combinators/cleave/cleave.factor
@ -54,6 +54,8 @@ MACRO: 2cleave ( seq -- )

 : bi* ( x y p q -- p(x) q(y) ) >r swap slip r> call ; inline

+: 2bi* ( w x y z p q -- p(x) q(y) ) >r -rot 2slip r> call ; inline
+
 : tri* ( x y z p q r -- p(x) q(y) r(z) )
  >r rot >r bi* r> r> call ; inline