Make ebnf forgiving of whitespace at end of expression

2008-04-01 11:28:14 +13:00 · 2008-04-01 11:28:14 +13:00 · 72bfd57f30
parent a41f8ef733
commit 72bfd57f30
1 changed files with 1 additions and 1 deletions
--- a/extra/peg/ebnf/ebnf.factor
+++ b/extra/peg/ebnf/ebnf.factor
@ -320,7 +320,7 @@ M: ebnf-non-terminal (transform) ( ast -- parser )

 : check-parse-result ( result -- result )
  dup [
-    dup parse-result-remaining empty? [
+    dup parse-result-remaining [ blank? ] trim empty? [
      [ 
        "Unable to fully parse EBNF. Left to parse was: " %
        parse-result-remaining %