keepd ( ..a x y quot: ( ..a x y -- ..b ) -- ..b x )

Vocabulary

kernel

Inputs

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

Outputs

x

an object

Definition

IN: kernel

: keepd ( ..a x y quot: ( ..a x y -- ..b ) -- ..b x )
    2keep drop ; inline