gml-roll ( registers gml -- registers gml )

Vocabulary

gml.core

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: accessors gml.runtime kernel kernel.private math
sequences ;

IN: gml.core

: gml-roll ( registers gml -- registers gml )
    { gml } declare 2 0 [
        2dup abs < [ roll-out-of-bounds ] when [
            [ dup operand-stack>> ] dip over length swap -
            pop-slice
        ] dip neg over length rem cut-slice swap append
        over operand-stack>> push-all
    ] gml-primitive ;