slots>boa ( slots class -- quot )

Vocabulary

constructors

Inputs

slots	an object
class	an object

Outputs

quot

an object

Definition

USING: accessors assocs kernel sequences
sequences.generalizations ;

IN: constructors

MACRO:: slots>boa ( slots class -- quot )
    class all-slots-assoc slots
    [ '[ first name>> _ = ] find-last nip ] with map
    :> slot-assoc class all-slots-assoc
    [ [ ] [ first initial>> ] bi ] map>alist
    :> default-params slots length default-params length '[
        _ narray slot-assoc swap zip
        default-params swap assoc-union
        values _ firstn class boa
    ] ;