four-drop:forth_usual — ordinary primitive
FORTH
4DROP ( x y z -- )();p4:"four-drop";
4DROP ( x y z -- )(
)
Drop the top three elements from the stack.
: 4DROP 2DROP 2DROP ;