check-slots-tables ( element -- )

Vocabulary

help.lint.checks

Inputs

element

an object

Outputs

None

Definition

USING: help.markup kernel sequences ;

IN: help.lint.checks

: check-slots-tables ( element -- )
    \ $slots swap elements [ rest [ length 2 = ] all? ] all? [
        "$slots have too many values in at least one row"
        simple-lint-error
    ] unless ;