gml-dictfromarray ( registers gml -- registers gml )

Vocabulary

gml.core

Inputs

registers	an object
gml	an object

Outputs

registers	an object
gml	an object

Definition

USING: arrays assocs combinators gml.runtime grouping hashtables
kernel kernel.private ;

IN: gml.core

: gml-dictfromarray ( registers gml -- registers gml )
    { gml } declare 0 1 [
        dup pop-operand {
            { [ dup hashtable? ] [ [ dup pop-operand ] dip ] }
            { [ dup array? ] [ H{ } clone ] }
        } cond swap 2 group assoc-union!
    ] gml-primitive ;