stack-checker: adding 4dup and 4drop.

diff --git a/basis/stack-checker/known-words/known-words.factor b/basis/stack-checker/known-words/known-words.factor
index 6fbdd988cb1ec840fb4bc6bd37eb21a1f671dc29..8d20062957503b6f4ec4c08ae9300978485d604b 100644 (file)
--- a/basis/stack-checker/known-words/known-words.factor
+++ b/basis/stack-checker/known-words/known-words.factor
@@ -62,21 +62,23 @@ IN: stack-checker.known-words
     } cond ;
 
 {
-    { drop  ( x     --             ) }
-    { 2drop ( x y   --             ) }
-    { 3drop ( x y z --             ) }
-    { dup   ( x     -- x x         ) }
-    { 2dup  ( x y   -- x y x y     ) }
-    { 3dup  ( x y z -- x y z x y z ) }
-    { rot   ( x y z -- y z x       ) }
-    { -rot  ( x y z -- z x y       ) }
-    { dupd  ( x y   -- x x y       ) }
-    { swapd ( x y z -- y x z       ) }
-    { nip   ( x y   -- y           ) }
-    { 2nip  ( x y z -- z           ) }
-    { over  ( x y   -- x y x       ) }
-    { pick  ( x y z -- x y z x     ) }
-    { swap  ( x y   -- y x         ) }
+    { drop  ( x       --                 ) }
+    { 2drop ( x y     --                 ) }
+    { 3drop ( x y z   --                 ) }
+    { 4drop ( w x y z --                 ) }
+    { dup   ( x       -- x x             ) }
+    { 2dup  ( x y     -- x y x y         ) }
+    { 3dup  ( x y z   -- x y z x y z     ) }
+    { 4dup  ( w x y z -- w x y z w x y z ) }
+    { rot   ( x y z   -- y z x           ) }
+    { -rot  ( x y z   -- z x y           ) }
+    { dupd  ( x y     -- x x y           ) }
+    { swapd ( x y z   -- y x z           ) }
+    { nip   ( x y     -- y               ) }
+    { 2nip  ( x y z   -- z               ) }
+    { over  ( x y     -- x y x           ) }
+    { pick  ( x y z   -- x y z x         ) }
+    { swap  ( x y     -- y x             ) }
 } [ "shuffle" set-word-prop ] assoc-each
 
 : check-declaration ( declaration -- declaration )