basis/compiler/tree/propagation/propagation.factor

   1 ! Copyright (C) 2004, 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel sequences namespaces hashtables
   4 compiler.tree
   5 compiler.tree.propagation.copy
   6 compiler.tree.propagation.info
   7 compiler.tree.propagation.nodes
   8 compiler.tree.propagation.simple
   9 compiler.tree.propagation.inlining
  10 compiler.tree.propagation.branches
  11 compiler.tree.propagation.recursive
  12 compiler.tree.propagation.constraints
  13 compiler.tree.propagation.known-words ;
  14 IN: compiler.tree.propagation
  15
  16 ! This pass must run after normalization
  17
  18 : propagate ( node -- node )
  19     H{ } clone copies set
  20     H{ } clone constraints set
  21     H{ } clone value-infos set
  22     dup count-nodes
  23     dup (propagate) ;