add 4drop to extra shuffle

2007-12-09 17:49:33 -06:00 · 2007-12-09 17:49:33 -06:00 · c5567f3a04
parent 7b10e2941f
commit c5567f3a04
1 changed files with 2 additions and 0 deletions
--- 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