combinators.extras: Fix 3tri*

diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor
index f2fb2fe1bc8fa206cdf3a9e98604cdd6a6605d19..19254c6976c0b412586083f780b12ab53a270083 100644 (file)
--- a/extra/combinators/extras/extras.factor
+++ b/extra/combinators/extras/extras.factor
@@ -61,7 +61,7 @@ MACRO: cleave-array ( quots -- quot )
     [ 4dip ] dip call ; inline
 
 : 3tri* ( o s t  u v w  x y z  p q r -- )
-    [ 6 ndip ] 2dip [ 4dip ] dip call ; inline
+    [ 6 ndip ] 2dip [ 3dip ] dip call ; inline
 
 : 4tri* ( l m n o  s t u v  w x y z  p q r -- )
     [ 8 ndip ] 2dip [ 4dip ] dip call ; inline