rename a couple of strings.parser words

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index 49287ed1126847f7cbdee4e37f8324dff924a186..6ef5075fd968c9fb71cc0de7ca15efdfd0b04855 100644 (file)
--- a/core/strings/parser/parser.factor
+++ b/core/strings/parser/parser.factor
@@ -84,11 +84,6 @@ name>char-hook [
         lexer get (>>column)
     ] bi ;
 
-: find-next-token ( ch -- i elt )
-    CHAR: \ 2array
-    [ lexer get [ column>> ] [ line-text>> ] bi ] dip
-    [ member? ] curry find-from ;
-
 : rest-of-line ( lexer -- seq )
     [ line-text>> ] [ column>> ] bi tail-slice ;
 
@@ -107,10 +102,6 @@ ERROR: escaped-char-expected ;
         escaped-char-expected
     ] if ;
 
-: next-line% ( lexer -- )
-    [ rest-of-line % ]
-    [ next-line "\n" % ] bi ;
-
 : rest-begins? ( string -- ? )
     [
         lexer get [ line-text>> ] [ column>> ] bi tail-slice
@@ -119,6 +110,15 @@ ERROR: escaped-char-expected ;
 : advance-lexer ( n -- )
     [ lexer get ] dip [ + ] curry change-column drop ; inline
 
+: find-next-token ( ch -- i elt )
+    CHAR: \ 2array
+    [ lexer get [ column>> ] [ line-text>> ] bi ] dip
+    [ member? ] curry find-from ;
+
+: next-line% ( lexer -- )
+    [ rest-of-line % ]
+    [ next-line "\n" % ] bi ;
+
 : take-double-quotes ( -- string )
     lexer get dup current-char CHAR: " = [
         [ ] [ column>> ] [ line-text>> ] tri
@@ -138,38 +138,38 @@ ERROR: escaped-char-expected ;
         lexer get advance-char
     ] if ;
 
-DEFER: (parse-long-string)
+DEFER: ((parse-multiline-string))
 
 : parse-found-token ( i string token -- )
     [ lexer-before % ] dip
     CHAR: \ = [
-        lexer get [ next-char , ] [ next-char , ] bi (parse-long-string)
+        lexer get [ next-char , ] [ next-char , ] bi ((parse-multiline-string))
     ] [
         dup rest-begins? [
             end-string-parse
         ] [
-            lexer get next-char , (parse-long-string)
+            lexer get next-char , ((parse-multiline-string))
         ] if
     ] if ;
 
 ERROR: trailing-characters string ;
 
-: (parse-long-string) ( string -- )
+: ((parse-multiline-string)) ( string -- )
     lexer get still-parsing? [
         dup first find-next-token [
             parse-found-token
         ] [
             drop lexer get next-line%
-            (parse-long-string)
+            ((parse-multiline-string))
         ] if*
     ] [
         unexpected-eof
     ] if ;
 
-PRIVATE>
+: (parse-multiline-string) ( string -- string' )
+    [ ((parse-multiline-string)) ] "" make ;
 
-: parse-long-string ( string -- string' )
-    [ (parse-long-string) ] "" make ;
+PRIVATE>
 
 : parse-multiline-string ( -- string )
     lexer get rest-of-line "\"\"" head? [
@@ -177,4 +177,4 @@ PRIVATE>
         "\"\"\""
     ] [
         "\""
-    ] if parse-long-string unescape-string ;
+    ] if (parse-multiline-string) unescape-string ;