13 lines
339 B
Factor
13 lines
339 B
Factor
! Copyright (C) 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: compiler.cfg kernel accessors sequences ;
|
|
IN: compiler.cfg.predecessors
|
|
|
|
! Pass to compute precedecessors.
|
|
|
|
: compute-predecessors ( procedure -- )
|
|
[
|
|
dup successors>>
|
|
[ predecessors>> push ] with each
|
|
] each-block ;
|