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

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
y	an object

Definition

IN: kernel

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