peel-off-name ( slot-spec array -- slot-spec array )


Vocabulary
slots

Inputs
slot-specan object
arrayan object


Outputs
slot-specan object
arrayan object


Definition
USING: accessors kernel sequences ;

IN: slots

: peel-off-name ( slot-spec array -- slot-spec array )
[ first >>name ] [ rest ] bi ; inline