trivial-if? ( #if -- ? )


Vocabulary
compiler.cfg.builder

Inputs
#ifan object


Outputs
?an object


Definition
USING: accessors kernel sequences ;

IN: compiler.cfg.builder

: trivial-if? ( #if -- ? )
children>> first2
[ trivial-branch? [ t eq? ] when ]
[ trivial-branch? [ f eq? ] when ] bi* and ;