proc>quot2 ( proc -- quot: ( registers gml value1 value2 -- registers gml ) )

Vocabulary

gml.core

Inputs

proc

an object

Outputs

quot	a quotation with stack effect ( registers gml value1 value2 -- registers gml )

Definition

USING: gml.runtime kernel ;

IN: gml.core

: proc>quot2
    ( proc -- quot: ( registers gml value1 value2 -- registers gml ) )
    [ [ [ over push-operand ] bi@ ] ] dip [ exec-proc ] curry
    compose ; inline