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

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