strings.parser: simplify parse-string.

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index 1d01cf8c569e25dfce41cdecc13d66e22268d4cc..3e045f629776545151f419f9bf0612212d881554 100644 (file)
--- a/core/strings/parser/parser.factor
+++ b/core/strings/parser/parser.factor
@@ -86,9 +86,8 @@ PRIVATE>
 PRIVATE>
 
 : parse-string ( -- str )
-    lexer get [
-        [ SBUF" " clone ] 2dip swap tail-slice
-        (parse-string) [ "" like ] dip
+    SBUF" " clone lexer get [
+        swap tail-slice (parse-string) [ "" like ] dip
     ] change-lexer-column ;
 
 <PRIVATE