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

regexp: need this to be (parse-raw).

locals-and-roots
John Benediktsson 2016-03-30 21:24:43 -07:00
parent 180a0be647
commit be8c711d3e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/regexp/regexp.factor
View File

@ -208,7 +208,7 @@ PRIVATE>
] change-lexer-column ; ] change-lexer-column ;
: parse-noblank-token ( lexer -- str/f ) : parse-noblank-token ( lexer -- str/f )
dup still-parsing-line? [ (parse-token) ] [ drop f ] if ; dup still-parsing-line? [ (parse-raw) ] [ drop f ] if ;
: parse-regexp ( accum -- accum ) : parse-regexp ( accum -- accum )
lexer get [ take-until ] [ parse-noblank-token ] bi lexer get [ take-until ] [ parse-noblank-token ] bi