check-inputs ( seq var -- )

Vocabulary

compiler.tree.checker

Inputs

seq	an object
var	an object

Outputs

None

Definition

USING: kernel namespaces sequences ;

IN: compiler.tree.checker

: check-inputs ( seq var -- )
    [ dup length ] dip [ swap cut* swap ] change sequence=
    [ "Bad stack flow" throw ] unless ;