loop-entry? ( bb -- ? )

Vocabulary

compiler.cfg.utilities

Inputs

bb

an object

Outputs

?

an object

Definition

USING: accessors kernel sequences ;

IN: compiler.cfg.utilities

: loop-entry? ( bb -- ? )
    dup predecessors>> [ swap back-edge? ] with any? ;