From 09cf69717b81da3acea2c42d3de404aaafbcf8af Mon Sep 17 00:00:00 2001 From: Giftpflanze Date: Wed, 20 Mar 2024 12:07:32 +0100 Subject: [PATCH] combinators.extras: Fix 3tri* --- extra/combinators/extras/extras.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor index f2fb2fe1bc..19254c6976 100644 --- 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 -- 2.34.1