Make ebnf forgiving of whitespace at end of expression

db4
Chris Double 2008-04-01 11:28:14 +13:00
parent a41f8ef733
commit 72bfd57f30
1 changed files with 1 additions and 1 deletions

View File

@ -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 %