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>> ] ] dip [ = ] curry compose
        find-last nip
    ] with map :> slot-assoc class all-slots-assoc
    [ [ ] [ first initial>> ] bi ] { } map>assoc
    :> default-params slots length default-params length [
        [
            narray slot-assoc swap zip
            default-params swap assoc-union values
        ] curry
    ] dip [ firstn class boa ] curry compose ;