peg.ebnf: also remove ebnf-parser word-prop

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index ad5f75ad8b1fdfc2bedb5df8cab97ddd462dfb39..3eb9b7d145de3452958985825e7d46120d369b94 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -554,7 +554,7 @@ PREDICATE: ebnf-word < word "ebnf-quot" word-prop >boolean ;
 M: ebnf-word reset-word
     [ call-next-method ]
     [ "ebnf-quot" word-prop first first forget ]
-    [ "ebnf-quot" remove-word-prop ] tri ;
+    [ { "ebnf-quot" "ebnf-parser" } remove-word-props ] tri ;
 
 M: ebnf-word forget*
     [ call-next-method ] [ "ebnf-quot" word-prop first first forget ] bi ;