X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fshuffle%2Fshuffle.factor;fp=basis%2Fshuffle%2Fshuffle.factor;h=791802b9149b42173c1be9a7276b36ae932c9140;hp=5c9a62cd090b740c7cc09364e99fa847b8c94246;hb=ca3d7da8725ee62f1437122f40ba35443941ad86;hpb=09cf69717b81da3acea2c42d3de404aaafbcf8af

diff --git a/basis/shuffle/shuffle.factor b/basis/shuffle/shuffle.factor
index 5c9a62cd09..791802b914 100644
--- a/basis/shuffle/shuffle.factor
+++ b/basis/shuffle/shuffle.factor
@@ -27,6 +27,8 @@ SYNTAX: shuffle(
 
 : 2reach ( v w x y z -- v w x y z v w ) 5 npick 5 npick ; inline
 
+: dupdd ( x y z -- x x y z ) [ dupd ] dip ; inline
+
 : nipdd ( w x y z -- x y z ) roll drop ; inline
 
 : spind ( w x y z -- y x w z ) [ spin ] dip ; inline