roles>slots ( roles-and-superclass slots -- superclass slots' )

Vocabulary

roles

Inputs

roles-and-superclass	an object
slots	an object

Outputs

superclass	an object
slots'	an object

Definition

USING: combinators kernel sequences ;

IN: roles

: roles>slots
    ( roles-and-superclass slots -- superclass slots' )
    [
        [ role? ] partition dup length {
            { 0 [ drop tuple ] }
            { 1 [ first ] }
            [ drop multiple-inheritance-attempted ]
        } case swap [ role-slots ] map concat
    ] dip append ;