strings.parser: use single quotes around got.

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index 406f6879c9fd05a9850b4fb8a922b6379b2b23eb..6bf46d88c33c3673c949bc4a67f94f9ba136ad26 100644 (file)
--- a/core/strings/parser/parser.factor
+++ b/core/strings/parser/parser.factor
@@ -123,7 +123,7 @@ DEFER: (parse-string)
         dup current-char forbid-tab {
             { CHAR: \s [ advance-char ] }
             { f [ drop ] }
-            [ "[space]" swap 1string unexpected ]
+            [ "[space]" swap 1string "'" dup surround unexpected ]
         } case drop
     ] if ;
  
@@ -138,7 +138,7 @@ DEFER: (parse-string)
             (parse-string)
         ] if*
     ] [
-        "\"" "[eof]" unexpected
+        "'\"'" "[eof]" unexpected
     ] if ;
 
 PRIVATE>