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

Vocabulary

classes.tuple.parser

Inputs

class	an object
initials	an object
slot-spec/f	an object
index/f	an object
name	an object

Outputs

class	an object
initials	an object
slot-spec	an object
index	an 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 ;