rename another strings.parser word

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index 6ef5075fd968c9fb71cc0de7ca15efdfd0b04855..a69c3becc3ca73d83a6259035f1f289d0fa454ad 100644 (file)
--- a/core/strings/parser/parser.factor
+++ b/core/strings/parser/parser.factor
@@ -138,37 +138,34 @@ ERROR: escaped-char-expected ;
         lexer get advance-char
     ] if ;
 
-DEFER: ((parse-multiline-string))
+DEFER: (parse-multiline-string)
 
 : parse-found-token ( i string token -- )
     [ lexer-before % ] dip
     CHAR: \ = [
-        lexer get [ next-char , ] [ next-char , ] bi ((parse-multiline-string))
+        lexer get [ next-char , ] [ next-char , ] bi (parse-multiline-string)
     ] [
         dup rest-begins? [
             end-string-parse
         ] [
-            lexer get next-char , ((parse-multiline-string))
+            lexer get next-char , (parse-multiline-string)
         ] if
     ] if ;
 
 ERROR: trailing-characters string ;
 
-: ((parse-multiline-string)) ( string -- )
+: (parse-multiline-string) ( string -- )
     lexer get still-parsing? [
         dup first find-next-token [
             parse-found-token
         ] [
             drop lexer get next-line%
-            ((parse-multiline-string))
+            (parse-multiline-string)
         ] if*
     ] [
         unexpected-eof
     ] if ;
 
-: (parse-multiline-string) ( string -- string' )
-    [ ((parse-multiline-string)) ] "" make ;
-
 PRIVATE>
 
 : parse-multiline-string ( -- string )
@@ -177,4 +174,4 @@ PRIVATE>
         "\"\"\""
     ] [
         "\""
-    ] if (parse-multiline-string) unescape-string ;
+    ] if [ (parse-multiline-string) ] "" make unescape-string ;