count-insns ( quot insn-check -- ? )


Vocabulary
compiler.test

Inputs
quotan object
insn-checkan object


Outputs
?an object


Definition
USING: compiler.cfg.debugger compiler.cfg.linearization kernel
sequences ;

IN: compiler.test

: count-insns ( quot insn-check -- ? )
[ test-regs [ cfg>insns ] map concat ] dip count ; inline