parser: revert private for now, instead of fixing the tests.

diff --git a/core/parser/parser-docs.factor b/core/parser/parser-docs.factor
index ebcd15f7d36e112e214746dbfe94afc511a89010..c0274c833e962c4816e20a5984176e07dd9d7acf 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 parser.private sequences
-source-files strings vectors vocabs vocabs.parser words words.symbol ;
+kernel lexer math namespaces quotations sequences source-files strings
+vectors vocabs vocabs.parser words words.symbol ;
 IN: parser
 
 ARTICLE: "reading-ahead" "Reading ahead"

diff --git a/core/parser/parser-tests.factor b/core/parser/parser-tests.factor
index 76ce83e3ebc56c9cfadf7b5cdb88c6d70cf426f5..0cddf9026a96ce085bd4fce0a0f0490550c6b57a 100644 (file)
--- a/core/parser/parser-tests.factor
+++ b/core/parser/parser-tests.factor
@@ -1,7 +1,7 @@
 USING: accessors arrays assocs classes compiler.units effects
 eval generic grouping io.pathnames io.streams.string kernel
-lexer math multiline namespaces parser parser.private sequences
-sets source-files source-files.errors strings tools.crossref
+lexer math multiline namespaces parser sequences sets
+source-files source-files.errors strings tools.crossref
 tools.test vocabs vocabs.parser words words.symbol splitting ;
 IN: parser.tests
 

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index b6d7fa3891b6f24a3755ab81fe388890da192241..25e5175d13880e5943f2cef091ac851d6be2e14d 100644 (file)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -28,8 +28,6 @@ SYMBOL: auto-use?
         [ "Added \"" "\" vocabulary to search path" surround note. ] bi
     ] [ create-word-in ] if ;
 
-<PRIVATE
-
 : ignore-forwards ( seq -- seq' )
     [ forward-reference? ] reject ;
 
@@ -39,8 +37,6 @@ SYMBOL: auto-use?
     [ 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