From 55f21855320825ecd57b16fcb3f7503cd62f7a6a Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 10 Jun 2009 09:45:48 -0500 Subject: [PATCH] add an iota --- basis/compiler/tree/dead-code/branches/branches.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/compiler/tree/dead-code/branches/branches.factor b/basis/compiler/tree/dead-code/branches/branches.factor index fd1b2d5adb..f027ccdb61 100644 --- 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 )