check-slot-name ( class slots name -- name )

Vocabulary

classes.tuple.parser

Inputs

class	an object
slots	an object
name	an object

Outputs

name

an object

Definition

USING: kernel slots ;

IN: classes.tuple.parser

: check-slot-name ( class slots name -- name )
    2dup swap slot-named [ 2nip ] [ nip bad-slot-name ] if ;