From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 24 Mar 2024 17:11:28 +0000 (-0500)
Subject: shuffle: Add dupdd
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=ca3d7da8725ee62f1437122f40ba35443941ad86

shuffle: Add dupdd
---

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