keepdd ( ..a x y z quot: ( ..a x y z -- ..b ) -- ..b x ) (original) (raw)
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
: keepdd ( ..a x y z quot: ( ..a x y z -- ..b ) -- ..b x )
3keep 2drop ; inline