steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2013-03-10 12:30:08 -07:00
parent 8c88e0448a
commit 1776893c36
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/tree/dead-code/simple/simple.factor
View File

@ -49,7 +49,7 @@ M: #alien-node compute-live-values* nip look-at-inputs ;
zip filter-mapping values ; zip filter-mapping values ;
: filter-live ( values -- 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 ) :: drop-values ( inputs outputs mapping-keys mapping-values -- #shuffle )
inputs inputs