add 4nip to shuffle

2008-02-12 11:59:50 -06:00 · 2008-02-12 11:59:50 -06:00 · 023255d6ad
parent d283d57c2d
commit 023255d6ad
1 changed files with 2 additions and 0 deletions
--- a/extra/shuffle/shuffle.factor
+++ b/extra/shuffle/shuffle.factor
@ -25,6 +25,8 @@ MACRO: ntuck ( n -- ) 2 + [ dup , -nrot ] bake ;

 : 3nip ( a b c d -- d ) 3 nnip ; inline

+: 4nip ( a b c d e -- e ) 4 nnip ; inline
+
 : 4dup ( a b c d -- a b c d a b c d ) 4 ndup ; inline

 : 4drop ( a b c d -- ) 3drop drop ; inline