Don't add empty vocab-roots lines

diff --git a/basis/command-line/command-line.factor b/basis/command-line/command-line.factor
index 643afef669b1f7ec476aab5193554d50f1ed5281..f30182b93673e2f5fb74a13ea4cc53c9e495bc3c 100644 (file)
--- 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 ;