make-class-props ( superclass members participants metaclass -- assoc )

Vocabulary

classes.private

Inputs

superclass	an object
members	an object
participants	an object
metaclass	an object

Outputs

assoc

an object

Definition

USING: combinators kernel make sequences words ;

IN: classes.private

: make-class-props
    ( superclass members participants metaclass -- assoc )
    [
        {
            [ dup [ bootstrap-word ] when "superclass" ,, ]
            [ [ bootstrap-word ] map "members" ,, ]
            [ [ bootstrap-word ] map "participants" ,, ]
            [ "metaclass" ,, ]
        } spread
    ] H{ } make ;