pass-list ( word -- passes )


Vocabulary
compiler.cfg.metrics

Inputs
wordan object


Outputs
passesan object


Definition
USING: accessors arrays compiler.cfg.utilities kernel sequences
;

IN: compiler.cfg.metrics

:: pass-list ( word -- passes )
word def>> :> definition definition length 2 = [
definition first array? definition second \ apply-passes
eq? and
] [ f ] if
[ definition first ] [ word unrecognized-pass-pipeline ] if
;