find-alternate-loop-head ( bb -- bb' )


Vocabulary
compiler.cfg.linearization.private

Inputs
bban object


Outputs
bb'an object


Definition
USING: kernel ;

IN: compiler.cfg.linearization.private

: find-alternate-loop-head ( bb -- bb' )
dup find-back-edge dup visited?
[ drop ] [ nip (find-alternate-loop-head) ] if ;