From da774515032c38dfd5ed18459af3f42090431a0c Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 3 Sep 2009 17:49:06 -0500 Subject: [PATCH 1/2] found a missing 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 f09593824e..6cef45a9c9 100644 --- a/basis/compiler/tree/dead-code/branches/branches.factor +++ b/basis/compiler/tree/dead-code/branches/branches.factor @@ -31,7 +31,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 ) From 0c184e2666f07075174e93272283968bf97e0af3 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 4 Jun 2010 14:17:07 -0500 Subject: [PATCH 2/2] Don't add empty vocab-roots lines --- basis/command-line/command-line.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/command-line/command-line.factor b/basis/command-line/command-line.factor index 643afef669..f30182b936 100644 --- a/basis/command-line/command-line.factor +++ b/basis/command-line/command-line.factor @@ -28,7 +28,7 @@ SYMBOL: command-line : load-vocab-roots ( -- ) "user-init" get [ "factor-roots" rc-path dup exists? [ - utf8 file-lines [ add-vocab-root ] each + utf8 file-lines harvest [ add-vocab-root ] each ] [ drop ] if ] when ;