parser: more private words.

diff --git a/core/parser/parser-docs.factor b/core/parser/parser-docs.factor
index c0274c833e962c4816e20a5984176e07dd9d7acf..ebcd15f7d36e112e214746dbfe94afc511a89010 100644 (file)
--- a/core/parser/parser-docs.factor
+++ b/core/parser/parser-docs.factor
@@ -1,6 +1,6 @@
 USING: arrays compiler.units definitions help.markup help.syntax
-kernel lexer math namespaces quotations sequences source-files strings
-vectors vocabs vocabs.parser words words.symbol ;
+kernel lexer math namespaces quotations parser.private sequences
+source-files strings vectors vocabs vocabs.parser words words.symbol ;
 IN: parser
 
 ARTICLE: "reading-ahead" "Reading ahead"

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index dc859c18bb15f6bbfa20a0a60c77a1a747710d0d..b6d7fa3891b6f24a3755ab81fe388890da192241 100644 (file)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -28,11 +28,11 @@ SYMBOL: auto-use?
         [ "Added \"" "\" vocabulary to search path" surround note. ] bi
     ] [ create-word-in ] if ;
 
+<PRIVATE
+
 : ignore-forwards ( seq -- seq' )
     [ forward-reference? ] reject ;
 
-<PRIVATE
-
 : private? ( word -- ? ) vocabulary>> ".private" tail? ;
 
 : use-first-word? ( words -- ? )