check-declaration ( declaration -- declaration )

Vocabulary

stack-checker.known-words

Inputs

declaration

a sequence

Outputs

declaration

a sequence

Word description

Checks that a declaration sequence as input to a declare word is well-formed.

Definition

USING: arrays classes combinators.short-circuit kernel sequences
stack-checker.errors ;

IN: stack-checker.known-words

: check-declaration ( declaration -- declaration )
    dup { [ array? ] [ [ classoid? ] all? ] } 1&&
    [ bad-declaration-error ] unless ;