add nipd to contrib/shuffle

2006-11-20 19:28:55 +00:00 · 2006-11-20 19:28:55 +00:00 · 08550f3a7d
parent f683fb506a
commit 08550f3a7d
1 changed files with 3 additions and 0 deletions
--- a/contrib/shuffle/shuffle.factor
+++ b/contrib/shuffle/shuffle.factor
@ -10,6 +10,9 @@ IN: shuffle
 : -roll ( a b c d -- d a b c )
    -rot >r >r swap r> r> ; inline

+: nipd ( a b c -- b c )
+    rot drop ; inline
+
 : 3nip ( a b c d -- d )
    2nip nip ; inline