role-or-tuple-slot-names ( role-or-tuple -- names )


Vocabulary
roles

Inputs
role-or-tuplean object


Outputs
namesan object


Definition
USING: accessors classes.tuple kernel sequences ;

IN: roles

: role-or-tuple-slot-names ( role-or-tuple -- names )
dup role?
[ role-slots slot-names ] [ all-slots [ name>> ] map ] if ;