fixing some quotes in strings bugs

core/strings/parser/parser-tests.factor

@@ -19,3 +19,15 @@ IN: strings.parser.tests
 ] [
     error>> escaped-char-expected?
 ] must-fail-with
+
+[
+    " \" abc \" "
+] [
+    "\"\"\" \" abc \" \"\"\"" eval( -- string )
+] unit-test
+
+[
+    "\"abc\""
+] [
+    "\"\"\"\"abc\"\"\"\"" eval( -- string )
+] unit-test

core/strings/parser/parser.factor

@@ -131,8 +131,7 @@ DEFER: (parse-long-string)
         dup rest-begins? [
             [ lexer get ] dip length [ + ] curry change-column drop
         ] [
-            rest-of-line %
-            lexer get next-line "\n" % (parse-long-string)
+            lexer get next-char , (parse-long-string)
         ] if
     ] if ;