! Copyright (C) 2006, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: inference.dataflow inference.backend kernel ;
IN: optimizer

: collect-label-infos ( node -- node )
    dup [
        dup #label? [ collect-label-info ] [ drop ] if
    ] each-node ;