From c71c20006398045ad6d105b1b3c013ed6f78a440 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 27 Oct 2014 19:38:32 -0700 Subject: [PATCH] parser: Fix for empty word list. Oops. --- core/parser/parser.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/core/parser/parser.factor b/core/parser/parser.factor index 7f9cfc60ac..f138544034 100644 --- 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 ] [ throw-restarts no-word-restarted ]