steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

strings.parser: simplify parse-string.

db4
John Benediktsson 2014-06-03 21:05:36 -07:00
parent f61bdd0bb4
commit f02a059c78
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/strings/parser/parser.factor
View File

@ -86,9 +86,8 @@ PRIVATE>
PRIVATE> PRIVATE>
: parse-string ( -- str ) : parse-string ( -- str )
lexer get [ SBUF" " clone lexer get [
[ SBUF" " clone ] 2dip swap tail-slice swap tail-slice (parse-string) [ "" like ] dip
(parse-string) [ "" like ] dip
] change-lexer-column ; ] change-lexer-column ;
<PRIVATE <PRIVATE