gml-forx ( registers gml -- registers gml )

Vocabulary

gml.core

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: continuations gml.runtime kernel kernel.private math
ranges sequences ;

IN: gml.core

: gml-forx ( registers gml -- registers gml )
    { gml } declare 4 0 [
        [ [ 1 - swap <range> ] dip proc>quot1 each ] 3curry
        curry with-return
    ] gml-primitive ;