check-lengths ( seq -- )

Vocabulary

compiler.tree.checker

Inputs

seq

an object

Outputs

None

Definition

USING: grouping kernel sequences ;

IN: compiler.tree.checker

: check-lengths ( seq -- )
    [ length ] map all-equal? [ "Bad lengths" throw ] unless ;