strings.parser: make internal escape words private

[factor.git] / core / strings / parser / parser.factor

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
     [