From c5567f3a04d6e8b31e5f55f89efad88afac38f46 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 9 Dec 2007 17:49:33 -0600
Subject: [PATCH] add 4drop to extra shuffle

---
 extra/shuffle/shuffle.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/extra/shuffle/shuffle.factor b/extra/shuffle/shuffle.factor
index b2523eddd2..b0fdd952d5 100644
--- a/extra/shuffle/shuffle.factor
+++ b/extra/shuffle/shuffle.factor
@@ -29,4 +29,6 @@ MACRO: ntuck ( n -- ) 2 + [ dup , -nrot ] bake ;
 
 : 4dup ( a b c d -- a b c d a b c d ) 4 ndup ; inline
 
+: 4drop ( a b c d -- ) 3drop drop ; inline
+
 : tuckd ( x y z -- z x y z ) 2 ntuck ; inline