gml-twoforall ( 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 sequences
;

IN: gml.core

: gml-twoforall ( registers gml -- registers gml )
    { gml } declare 3 0
    [ [ proc>quot2 2each ] 3curry with-return ] gml-primitive ;