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