4keep ( ..a w x y z quot: ( ..a w x y z -- ..b ) -- ..b w x y z )


Vocabulary
kernel

Inputs
wan object
xan object
yan object
zan object
quota quotation with stack effect ( ..a w x y z -- ..b )


Outputs
wan object
xan object
yan object
zan object


Definition

: 4keep
( ..a w x y z quot: ( ..a w x y z -- ..b ) -- ..b w x y z )
[ 4dup ] dip 4dip ; inline