1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: compiler.cfg kernel accessors sequences ;
4 IN: compiler.cfg.predecessors
6 ! Pass to compute precedecessors.
8 : compute-predecessors ( procedure -- )
11 [ predecessors>> push ] with each