strings.parser: simplify parse-string.

2014-06-03 21:05:36 -07:00 · 2014-06-03 21:05:36 -07:00 · f02a059c78
parent f61bdd0bb4
commit f02a059c78
1 changed files with 2 additions and 3 deletions
--- 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