Vocabulary
kernel

Inputs
xan object
quota quotation with stack effect ( ..a x -- ..b )


Outputs
xan object


Word description
Call a quotation with a value on the stack, restoring the value when the quotation returns.

Examples
USING: arrays kernel prettyprint ; 2 "greetings" [ <array> ] keep 2array .
{ { "greetings" "greetings" } "greetings" }


Definition

: keep ( ..a x quot: ( ..a x -- ..b ) -- ..b x )
over [ call ] dip ; inline