compiler.tree.dead-code.simple: curry live-values.

2013-03-10 12:30:08 -07:00 · 2013-03-10 12:30:08 -07:00 · 1776893c36
parent 8c88e0448a
commit 1776893c36
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/tree/dead-code/simple/simple.factor
+++ b/basis/compiler/tree/dead-code/simple/simple.factor
@ -49,7 +49,7 @@ M: #alien-node compute-live-values* nip look-at-inputs ;
    zip filter-mapping values ;

 : filter-live ( values -- values' )
-    dup empty? [ [ live-value? ] filter ] unless ;
+    dup empty? [ live-values get '[ _ at ] filter ] unless ;

 :: drop-values ( inputs outputs mapping-keys mapping-values -- #shuffle )
    inputs