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

Vocabulary

gml.core

Inputs

proc

an object

Outputs

quot	a quotation with stack effect ( registers gml value -- registers gml )

Definition

USING: gml.runtime kernel ;

IN: gml.core

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