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 _ exec-proc ] ; inline