apply-stack-effect ( quot -- quot' )


Vocabulary
rosetta-code.active-object

Inputs
quotan object


Outputs
quot'an object


Definition
USING: combinators kernel ;

IN: rosetta-code.active-object

: apply-stack-effect ( quot -- quot' )
[ ( x -- x ) call-effect ] curry ; inline