1 ! Copyright (C) 2004, 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel sequences namespaces hashtables
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
16 ! This pass must run after normalization
18 : propagate ( node -- node )
20 H{ } clone constraints set
21 H{ } clone value-infos set