check-for-slot-overlap ( class roles-and-superclass slots -- )

Vocabulary

roles

Inputs

class	an object
roles-and-superclass	an object
slots	an object

Outputs

None

Definition

USING: kernel sequences sets ;

IN: roles

: check-for-slot-overlap
    ( class roles-and-superclass slots -- )
    [ [ role-or-tuple-slot-names ] map concat ] [ slot-names ]
    bi* append duplicates dup empty?
    [ 2drop ] [ role-slot-overlap ] if ;