role-slots ( role -- slots )


Vocabulary
roles

Inputs
rolean object


Outputs
slotsan object


Definition
USING: kernel sequences words ;

IN: roles

: role-slots ( role -- slots )
[ "superroles" word-prop [ role-slots ] map concat ]
[ "role-slots" word-prop ] bi append ;