unfinished/compiler/cfg.bluesky/kill-nops/kill-nops.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: sequences kernel compiler.vops ;
   4 IN: compiler.cfg.kill-nops
   5
   6 ! Smallest compiler pass ever.
   7
   8 : kill-nops ( instructions -- instructions' )
   9     [ nop? not ] filter ;