]> gitweb.factorcode.org Git - factor.git/commitdiff
Merge branch 'master' of git://factorcode.org/git/factor
authorDoug Coleman <doug.coleman@gmail.com>
Tue, 8 Sep 2009 18:22:52 +0000 (13:22 -0500)
committerDoug Coleman <doug.coleman@gmail.com>
Tue, 8 Sep 2009 18:22:52 +0000 (13:22 -0500)
1  2 
basis/compiler/tree/dead-code/branches/branches.factor

index f027ccdb61d12d5311c51f1e94e8a8752813a4fb,f09593824eb1babe838684bdaf56cd83e000d92a..6cef45a9c91767ab64577697f9e6f51bf9d61c52
@@@ -3,8 -3,7 +3,7 @@@
  USING: sequences namespaces kernel accessors assocs sets fry
  arrays combinators columns stack-checker.backend
  stack-checker.branches compiler.tree compiler.tree.combinators
- compiler.tree.dead-code.liveness compiler.tree.dead-code.simple
- ;
+ compiler.tree.dead-code.liveness compiler.tree.dead-code.simple ;
  IN: compiler.tree.dead-code.branches
  
  M: #if mark-live-values* look-at-inputs ;
@@@ -32,7 -31,7 +31,7 @@@ M: #branch remove-dead-code
      pad-with-bottom >>phi-in-d drop ;
  
  : live-value-indices ( values -- indices )
 -    [ length ] keep live-values get
 +    [ length iota ] keep live-values get
      '[ _ nth _ key? ] filter ; inline
  
  : drop-indexed-values ( values indices -- node )