check-class-description ( word element -- )

Vocabulary

help.lint.checks

Inputs

word	an object
element	an object

Outputs

None

Definition

USING: accessors classes classes.struct classes.tuple
help.markup kernel sequences ;

IN: help.lint.checks

: check-class-description ( word element -- )
    \ $class-description swap elements over class? [
        [
            dup struct-class? [ struct-slots ] [ all-slots ] if
            [ name>> ] map
        ] [ extract-slots ] bi* [ swap member? ] with reject [
            ", " join "Described $slot does not exist: " prepend
            simple-lint-error
        ] unless-empty
    ] [
        nip empty? not [
            "A word that is not a class has a $class-description"
            simple-lint-error
        ] when
    ] if ;