From aec7ce10e950603f90c38bfe03dfa4041d9d9fa8 Mon Sep 17 00:00:00 2001 From: Giftpflanze Date: Sun, 18 Dec 2022 09:51:22 +0000 Subject: [PATCH] shuffle: Fix 2reach --- basis/shuffle/shuffle.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/shuffle/shuffle.factor b/basis/shuffle/shuffle.factor index 393dffc2f6..b92bad9e78 100644 --- a/basis/shuffle/shuffle.factor +++ b/basis/shuffle/shuffle.factor @@ -25,6 +25,6 @@ SYNTAX: shuffle( : 8roll ( a b c d e f g h -- b c d e f g h a ) [ roll ] 4dip 5roll ; inline -: 2reach ( w x y z -- w x y z w x ) reach reach ; inline +: 2reach ( v w x y z -- v w x y z v w ) 5 npick 5 npick ; inline : nipdd ( w x y z -- x y z ) roll drop ; inline -- 2.34.1