proc>quot1 ( proc -- quot: ( registers gml value -- registers gml ) )


Vocabulary
gml.core

Inputs
procan object


Outputs
quota quotation with stack effect ( registers gml value -- registers gml )


Definition


: proc>quot1
( proc -- quot: ( registers gml value -- registers gml ) )
[ [ over push-operand ] ] dip [ exec-proc ] curry compose ;
inline