check-initial-value ( slot-spec -- slot-spec )

Vocabulary

slots

Inputs

slot-spec

an object

Outputs

slot-spec

an object

Definition

USING: accessors classes kernel words ;

IN: slots

: check-initial-value ( slot-spec -- slot-spec )
    [ ] [
        [ ] [ initial>> ] [ class>> ] tri 2dup instance?
        [ 2drop ] [ [ name>> ] 2dip bad-initial-value ] if
    ] if-bootstrapping ;