check-slot-value ( value slot -- )

Vocabulary

slots

Inputs

value	an object
slot	an object

Outputs

None

Definition

USING: accessors classes kernel ;

IN: slots

: check-slot-value ( value slot -- )
    class>> 2dup instance? [ 2drop ] [ bad-slot-value ] if ;
    inline