check-deprecations ( usage -- )

Vocabulary

tools.deprecation

Inputs

usage

an object

Outputs

None

Definition

USING: accessors combinators.short-circuit kernel sequences
tools.crossref words ;

IN: tools.deprecation

: check-deprecations ( usage -- )
    dup word? [
        dup { [ "forgotten" word-prop ] [ deprecated? ] } 1||
        [ clear-deprecation-note ] [
            dup def>> uses [ deprecated? ] filter
            [ clear-deprecation-note ]
            [ store-deprecation-note ] if-empty
        ] if
    ] [ drop ] if ;