add a couple stack shuffle words to libs/shuffle

diff --git a/libs/shuffle/shuffle.factor b/libs/shuffle/shuffle.factor
index 2b0493d34669c3b4538b5e020771c42d8a832ad7..2af198b6cdda5f47a11f51dd163cd67cae17cfd8 100644 (file)
--- a/libs/shuffle/shuffle.factor
+++ b/libs/shuffle/shuffle.factor
@@ -10,6 +10,12 @@ IN: shuffle
 : -roll ( a b c d -- d a b c )
     -rot >r >r swap r> r> ; inline
 
+: 2over ( a b c -- a b c a b )
+    pick pick ; inline
+
+: 2pick ( a b c d -- a b c d a b )
+    reach reach ; inline
+
 : nipd ( a b c -- b c )
     rot drop ; inline