find-back-edge ( bb -- pred )


Vocabulary
compiler.cfg.linearization.private

Inputs
bban object


Outputs
predan object


Definition
USING: accessors compiler.cfg.utilities kernel sequences ;

IN: compiler.cfg.linearization.private

: find-back-edge ( bb -- pred )
[ predecessors>> ] keep [ back-edge? ] curry find nip ;