parsed -> suffix!, add append!

[factor.git] / basis / peg / ebnf / ebnf.factor

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index 136007e7ce01114371181ff21cb133a346e88805..a7fd07a5ecb0abc47899447ec30f157c3a0adf04 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -547,12 +547,12 @@ PRIVATE>
 SYNTAX: <EBNF\r
   "EBNF>"\r
   reset-tokenizer parse-multiline-string parse-ebnf main swap at  \r
-  parsed reset-tokenizer ;\r
+  suffix! reset-tokenizer ;\r
 \r
 SYNTAX: [EBNF\r
   "EBNF]"\r
   reset-tokenizer parse-multiline-string ebnf>quot nip \r
-  parsed \ call parsed reset-tokenizer ;\r
+  suffix! \ call suffix! reset-tokenizer ;\r
 \r
 SYNTAX: EBNF: \r
   reset-tokenizer CREATE-WORD dup ";EBNF" parse-multiline-string  \r