parser: make some words private.

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 25e5175d13880e5943f2cef091ac851d6be2e14d..dc859c18bb15f6bbfa20a0a60c77a1a747710d0d 100644 (file)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -31,12 +31,16 @@ SYMBOL: auto-use?
 : ignore-forwards ( seq -- seq' )
     [ forward-reference? ] reject ;
 
+<PRIVATE
+
 : private? ( word -- ? ) vocabulary>> ".private" tail? ;
 
 : use-first-word? ( words -- ? )
     [ length 1 = ] [ ?first dup [ private? not ] [ ] ?if ] bi and
     auto-use? get and ;
 
+PRIVATE>
+
 ! True branch is a singleton public word with no name conflicts
 ! False branch, singleton private words need confirmation regardless
 ! of name conflicts