check-use ( value uses -- )

Vocabulary

compiler.tree.checker

Inputs

value	an object
uses	an object

Outputs

None

Definition

USING: kernel sequences sets ;

IN: compiler.tree.checker

: check-use ( value uses -- )
    [ empty? [ "No use" check-use-error ] [ drop ] if ] [
        all-unique?
        [ drop ] [ "Uses not all unique" check-use-error ] if
    ] 2bi ;