keepdd ( ..a x y z quot: ( ..a x y z -- ..b ) -- ..b x )


Vocabulary
kernel

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


Outputs
xan object


Definition

: keepdd ( ..a x y z quot: ( ..a x y z -- ..b ) -- ..b x )
3keep 2drop ; inline