Vocabulary
kernel

Inputs
wan object
xan object
yan object
zan object
quota quotation


Outputs
wan object
xan object
yan object
zan object


Word description
Removes w, x, y, and z from the datastack, calls quot, and restores the removed objects to the top of the datastack when quot is finished.

Notes
The following are equivalent:
[ [ [ [ foo bar ] dip ] dip ] dip ] dip

[ foo bar ] 4dip


Definition

: 4dip ( w x y z quot -- w x y z ) swap [ 3dip ] dip ; inline