contains-insn? ( quot insn-check -- ? )


Vocabulary
compiler.test

Inputs
quotan object
insn-checkan object


Outputs
?an object


Definition
USING: math ;

IN: compiler.test

: contains-insn? ( quot insn-check -- ? ) count-insns 0 > ;
inline