check-terminate-in-r ( #terminate -- )

Vocabulary

compiler.tree.checker

Inputs

#terminate

an object

Outputs

None

Definition

USING: accessors kernel namespaces sequences ;

IN: compiler.tree.checker

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