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


Vocabulary
compiler.cfg.utilities

Inputs
bban object


Outputs
bb'an object


Definition
USING: kernel ;

IN: compiler.cfg.utilities

: skip-empty-blocks ( bb -- bb' )
[ HS{ } clone ] dip (skip-empty-blocks) nip ;