slot-named-checked ( class initials name slots -- class initials slot-spec )


Vocabulary
classes.tuple.parser

Inputs
classan object
initialsan object
namean object
slotsan object


Outputs
classan object
initialsan object
slot-specan object


Definition
USING: kernel slots ;

IN: classes.tuple.parser

: slot-named-checked
( class initials name slots -- class initials slot-spec )
over [ slot-named* ] dip check-slot-exists drop ;