strings.parser: make internal escape words private

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index ee3dbfa36e34666902588e81e2c7d49b7a477ad5..2b8216dd556ceb86f236e8855c8cea3ef69120e0 100644 (file)
--- a/core/strings/parser/parser.factor
+++ b/core/strings/parser/parser.factor
@@ -30,6 +30,8 @@ name>char-hook [
     [ "Unicode support not available" throw ]
 ] initialize
 
+<PRIVATE
+
 : hex-escape ( str -- ch str' )
     2 cut-slice [ hex> ] dip ;
 
@@ -62,8 +64,6 @@ name>char-hook [
         } case
     ] unless ;
 
-<PRIVATE
-
 : (unescape-string) ( accum str i/f -- accum )
     { sbuf object object } declare
     [

diff --git a/core/syntax/syntax.factor b/core/syntax/syntax.factor
index 66ab0047729a925f7a9e9f70942ff4ebe352f807..2fcc674d1cfb20dee818f1de6d162ee2183effa3 100644 (file)
--- a/core/syntax/syntax.factor
+++ b/core/syntax/syntax.factor
@@ -10,8 +10,9 @@ generic.math generic.parser generic.standard hash-sets
 hashtables hashtables.identity init io.pathnames kernel lexer
 locals.errors locals.parser macros math memoize namespaces
 parser quotations sbufs sequences slots source-files splitting
-strings strings.parser vectors vocabs.loader vocabs.parser words
-words.alias words.constant words.symbol ;
+strings strings.parser strings.parser.private vectors
+vocabs.loader vocabs.parser words words.alias words.constant
+words.symbol ;
 IN: bootstrap.syntax
 
 ! These words are defined as a top-level form, instead of with