check-terminate-in-d ( #terminate -- )

Vocabulary

compiler.tree.checker

Inputs

#terminate

an object

Outputs

None

Definition

USING: accessors kernel namespaces sequences ;

IN: compiler.tree.checker

: check-terminate-in-d ( #terminate -- )
    in-d>> datastack get over length tail* sequence=
    [ "Bad terminate data stack" throw ] unless ;