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

diff --git a/basis/peg/peg.factor b/basis/peg/peg.factor
index ad386dbbe85ee49f9918065aad880f0d447f5be3..0a8365899f92b6d81ec0f2affcf80e0f2ebdc387 100644 (file)
--- a/basis/peg/peg.factor
+++ b/basis/peg/peg.factor
@@ -330,7 +330,7 @@ TUPLE: token-parser symbol ;
 : parse-token ( input string -- result )
     ! Parse the string, returning a parse result
     [ ?head-slice ] keep swap [
-        <parse-result> f f f add-error
+        <parse-result>
     ] [
         [ seq>> pos get swap ] dip "'" "'" surround 1vector add-error f
     ] if ;