read-register

Vocabulary

gml.runtime

Definition

USING: math strings ;

IN: gml.runtime

TUPLE: read-register
    { name string initial: "" } { n fixnum initial: 0 } ;

Methods

USING: gml.runtime kernel ;

M: read-register (exec)
    is-gml [ 2dup ] dip lookup-register over push-operand ;


USING: accessors gml.printer gml.runtime io ;

M: read-register write-gml ";" write name>> write ;