(skip-empty-blocks) ( visited bb -- visited bb' )

Vocabulary

compiler.cfg.utilities

Inputs

visited	an object
bb	an object

Outputs

visited	an object
bb'	an object

Definition

USING: accessors kernel sequences sets ;

IN: compiler.cfg.utilities

: (skip-empty-blocks) ( visited bb -- visited bb' )
    dup empty-block? [
        dup pick ?adjoin
        [ successors>> first (skip-empty-blocks) ] when
    ] when ; inline recursive