should-define ( word -- spec )

Vocabulary

help.lint.coverage.private

Inputs

word

an object

Outputs

spec

an object

Definition

USING: classes classes.error combinators generic help.markup
kernel words words.alias ;

IN: help.lint.coverage.private

: should-define ( word -- spec )
    dup {
        { [ dup predicate? ] [ drop { } ] }
        { [ dup primitive? ] [ drop { $description } ] }
        { [ dup alias? ] [ drop { $values $description } ] }
        {
            [ dup error-class? ]
            [ drop { $values $description $error-description } ]
        }
        { [ dup class? ] [ drop { $class-description } ] }
        {
            [ dup generic? ]
            [ drop { $values $contract $examples } ]
        }
        {
            [ dup word? ]
            [ drop { $values $description $examples } ]
        }
    } cond ?remove-$values ;