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

Vocabulary

kernel

Inputs

x	an object
y	an object
z	an object
quot	a quotation with stack effect ( ..a x y z -- ..b )

Outputs

x

an object

Definition

IN: kernel

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