4dup ( w x y z -- w x y z w x y z ) (original) (raw)

4dup ( w x y z -- w x y z w x y z )

Vocabulary
kernel

Word description
This is a shuffle word, rearranging the top of the datastack as indicated by the word's stack effect: ( w x y z -- w x y z w x y z ).

Definition

IN: kernel

PRIMITIVE: 4dup ( w x y z -- w x y z w x y z )