add an iota

2009-06-10 09:45:48 -05:00 · 2009-06-10 09:45:48 -05:00 · 55f2185532
parent bcfc0c5759
commit 55f2185532
1 changed files with 1 additions and 1 deletions
--- a/basis/compiler/tree/dead-code/branches/branches.factor
+++ b/basis/compiler/tree/dead-code/branches/branches.factor
@ -32,7 +32,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 )