From 08550f3a7da139e0af200409a710041e957eb3d3 Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Mon, 20 Nov 2006 19:28:55 +0000
Subject: [PATCH] add nipd to contrib/shuffle

---
 contrib/shuffle/shuffle.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/contrib/shuffle/shuffle.factor b/contrib/shuffle/shuffle.factor
index c0f7116a38..2b0493d346 100644
--- 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