LOG-GML:

Vocabulary

gml.macros

Inputs

parsed

an object

Outputs

parsed

an object

Definition

USING: accessors classes.tuple gml.runtime kernel locals.backend
parser sequences ;

IN: gml.macros

SYNTAX: LOG-GML:
    (GML:) 4 load-locals -2 get-local "-record" append
    create-word-in load-local
    0 get-local tuple -2 get-local in>> define-tuple-class
    0 get-local -1 get-local -2 get-local in>> length
    [ log-euler-op ] 3curry load-local
    -5 get-local -4 get-local -3 get-local 0 get-local
    define-gml-primitive 6 drop-locals ;