empty-block? ( bb -- ? )

Vocabulary

compiler.cfg.utilities

Inputs

bb

an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit
compiler.cfg.instructions kernel sequences ;

IN: compiler.cfg.utilities

: empty-block? ( bb -- ? )
    instructions>> { [ length 1 = ] [ first ##branch? ] } 1&& ;