sequences: Add 1surround which is dup surround

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

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index 0fe17af62722770ccd246a6ab58dcb9a19601846..9e70223671ac6e04d6961106519214ec94c3da98 100644 (file)
--- a/core/strings/parser/parser.factor
+++ b/core/strings/parser/parser.factor
@@ -124,7 +124,7 @@ DEFER: (parse-string)
         dup current-char forbid-tab {
             { CHAR: \s [ advance-char ] }
             { f [ drop ] }
-            [ "[space]" swap 1string "'" dup surround unexpected ]
+            [ "[space]" swap 1string "'" 1surround unexpected ]
         } case drop
     ] if ;