From f02a059c7841088397a0d2886d1da80b23715f5b Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 3 Jun 2014 21:05:36 -0700
Subject: [PATCH] strings.parser: simplify parse-string.

---
 core/strings/parser/parser.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/core/strings/parser/parser.factor b/core/strings/parser/parser.factor
index 1d01cf8c56..3e045f6297 100644
--- 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