2008-07-22 05:45:03 -04:00
|
|
|
! 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 -- )
|
|
|
|
|
|
2008-07-27 21:25:42 -04:00
|
|
|
: (propagate) ( node -- ) [ [ propagate-around ] each ] when* ;
|
