basis/compiler/tree/propagation/propagation.factor

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