slot-name ( name/array -- name )

Vocabulary

roles

Inputs

name/array

an object

Outputs

name

an object

Definition

USING: kernel sequences strings ;

IN: roles

: slot-name ( name/array -- name )
    dup string? [ first ] unless ;