check-slot-exists ( class initials slot-spec/f index/f name -- class initials slot-spec index )


Vocabulary
classes.tuple.parser

Inputs
classan object
initialsan object
slot-spec/fan object
index/fan object
namean object


Outputs
classan object
initialsan object
slot-specan object
indexan object


Definition
USING: kernel ;

IN: classes.tuple.parser

: check-slot-exists
( class initials slot-spec/f index/f name -- class initials slot-spec index )
over [ drop ] [ 3nip bad-slot-name ] if ;