(EXEC:) ( quot -- method def )

Vocabulary

gml.runtime

Inputs

quot

an object

Outputs

method	an object
def	an object

Definition

USING: combinators generic.parser kernel parser sequences ;

IN: gml.runtime

: (EXEC:) ( quot -- method def )
    scan-word \ (exec) create-method-in
    swap ( -- quot ) call-effect [ is-gml ] prepend ;