parser: Fix for empty word list. Oops.

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 7f9cfc60acae66a9ac1bd0b61f823aaa7eff2ab4..f1385440342fce4135d8287337bb2af39c8eeecd 100644 (file)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -41,7 +41,8 @@ SYMBOL: auto-use?
 ! of name conflicts
 : no-word ( name -- newword )
     dup words-named ignore-forwards
-    dup [ length 1 = ] [ first private? not ] bi and
+    dup [ length 1 = ]
+    [ [ f ] [ first private? not ] if-empty ] bi and
     auto-use? get and
     [ nip first no-word-restarted ]
     [ <no-word-error> throw-restarts no-word-restarted ]