core/optimizer/collect/collect.factor

   1 ! Copyright (C) 2006, 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: inference.dataflow inference.backend kernel ;
   4 IN: optimizer
   5
   6 : collect-label-infos ( node -- node )
   7     dup [
   8         dup #label? [ collect-label-info ] [ drop ] if
   9     ] each-node ;
  10