use-registers

Vocabulary

gml.runtime

Definition

USING: math ;

IN: gml.runtime

TUPLE: use-registers { n fixnum initial: 0 } ;

Methods

USING: accessors arrays gml.runtime kernel ;

M: use-registers (exec)
    is-gml n>> f <array> [ [ drop ] ] dip [ ] curry compose dip
    ;


USING: gml.printer gml.runtime io kernel ;

M: use-registers write-gml drop "usereg" write ;