assoc>object ( class slots values -- tuple )

Vocabulary

classes.tuple.parser

Inputs

class	an object
slots	an object
values	an object

Outputs

tuple

an object

Definition

USING: accessors assocs kernel sequences ;

IN: classes.tuple.parser

: assoc>object ( class slots values -- tuple )
    [ [ [ initial>> ] map <enumerated> ] keep ] dip swap
    [ [ slot-named-checked ] curry dip ] curry assoc-map
    assoc-union! seq>> boa>object ;