! Copyright (C) 2004, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: sequences accessors kernel
compiler.tree.def-use
compiler.tree.propagation.info ;
IN: compiler.tree.propagation.nodes

SYMBOL: +constraints+
SYMBOL: +outputs+

GENERIC: propagate-before ( node -- )

GENERIC: propagate-after ( node -- )

GENERIC: propagate-around ( node -- )

: (propagate) ( node -- )
    [
        [ node-defs-values [ introduce-value ] each ]
        [ propagate-around ]
        [ successor>> ]
        tri
        (propagate)
    ] when* ;