Don't add empty vocab-roots lines

2010-06-04 14:17:07 -05:00 · 2010-06-04 14:17:07 -05:00 · 2216917cb5
parent 6270262fb6
commit 2216917cb5
1 changed files with 1 additions and 1 deletions
--- 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 ;