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

peg: Don't need to add empty errors here. It breaks the real error message.

locals-and-roots
Doug Coleman 2016-03-30 08:25:36 -07:00
parent 80f30119c0
commit e49d721374
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/peg/peg.factor
View File

@ -330,7 +330,7 @@ TUPLE: token-parser symbol ;
: parse-token ( input string -- result ) : parse-token ( input string -- result )
! Parse the string, returning a parse result ! Parse the string, returning a parse result
[ ?head-slice ] keep swap [ [ ?head-slice ] keep swap [
<parse-result> f f f add-error <parse-result>
] [ ] [
[ seq>> pos get swap ] dip "'" "'" surround 1vector add-error f [ seq>> pos get swap ] dip "'" "'" surround 1vector add-error f
] if ; ] if ;