From ce3d31014cbf58807831fc3b30c8ad17a9227799 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 27 Oct 2014 12:12:23 -0700
Subject: [PATCH] parser: Cleaner fix, comments. Fixes #1174.

---
 core/parser/parser.factor | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 4833e079d1..7f9cfc60ac 100644
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -36,14 +36,14 @@ SYMBOL: auto-use?
 
 : private? ( word -- ? ) vocabulary>> ".private" tail? ;
 
+! True branch is a singleton public word with no name conflicts
+! False branch, singleton private words need confirmation regardless
+! of name conflicts
 : no-word ( name -- newword )
     dup words-named ignore-forwards
-    dup length 1 = auto-use? get and
-    [
-        dup first private?
-        [ <no-word-error> throw-restarts no-word-restarted ]
-        [ nip first no-word-restarted ] if
-    ]
+    dup [ length 1 = ] [ first private? not ] bi and
+    auto-use? get and
+    [ nip first no-word-restarted ]
     [ <no-word-error> throw-restarts no-word-restarted ]
     if ;