unfinished/compiler/cfg.bluesky/predecessors/predecessors.factor

   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
   5
   6 ! Pass to compute precedecessors.
   7
   8 : compute-predecessors ( procedure -- )
   9     [
  10         dup successors>>
  11         [ predecessors>> push ] with each
  12     ] each-block ;