Make ebnf forgiving of whitespace at end of expression
parent
a41f8ef733
commit
72bfd57f30
|
@ -320,7 +320,7 @@ M: ebnf-non-terminal (transform) ( ast -- parser )
|
||||||
|
|
||||||
: check-parse-result ( result -- result )
|
: check-parse-result ( result -- result )
|
||||||
dup [
|
dup [
|
||||||
dup parse-result-remaining empty? [
|
dup parse-result-remaining [ blank? ] trim empty? [
|
||||||
[
|
[
|
||||||
"Unable to fully parse EBNF. Left to parse was: " %
|
"Unable to fully parse EBNF. Left to parse was: " %
|
||||||
parse-result-remaining %
|
parse-result-remaining %
|
||||||
|
|
Loading…
Reference in New Issue