From 1776893c361b04a40c80b4d4bc75038534cf7ee5 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 10 Mar 2013 12:30:08 -0700 Subject: [PATCH] compiler.tree.dead-code.simple: curry live-values. --- basis/compiler/tree/dead-code/simple/simple.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/compiler/tree/dead-code/simple/simple.factor b/basis/compiler/tree/dead-code/simple/simple.factor index 102ef1d36c..3f93639a3f 100644 --- 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