simple-unbalanced-branches-error ( word quots branches -- * )

Vocabulary

stack-checker.branches

Inputs

word	an object
quots	an object
branches	an object

Outputs

None

Definition

USING: arrays assocs effects kernel sequences
stack-checker.errors ;

IN: stack-checker.branches

: simple-unbalanced-branches-error
    ( word quots branches -- * )
    [ length [ ( ..a -- ..b ) ] replicate ]
    [ [ length [ "x" <array> ] bi@ <effect> ] { } assoc>map ] bi
    unbalanced-branches-error ;