shuffle: Add dupdd

diff --git a/basis/shuffle/shuffle.factor b/basis/shuffle/shuffle.factor
index 5c9a62cd090b740c7cc09364e99fa847b8c94246..791802b9149b42173c1be9a7276b36ae932c9140 100644 (file)
--- 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