1 ! Copyright (C) 2007 Chris Double, Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel generalizations ;
7 : 2swap ( x y z t -- z t x y ) 2 2 mnswap ; inline
9 : 4dup ( a b c d -- a b c d a b c d ) 4 ndup ; inline
11 : 4drop ( a b c d -- ) 3drop drop ; inline