assocs: Add of and ?of. Change all the things at once! Fixes #701.

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

diff --git a/basis/peg/ebnf/ebnf.factor b/basis/peg/ebnf/ebnf.factor
index ca9ab69e6c1ab4fc10ed504e0d02d9b28dad0621..4ad57278a151e83b6047455ab956f0fdbd816531 100644 (file)
--- a/basis/peg/ebnf/ebnf.factor
+++ b/basis/peg/ebnf/ebnf.factor
@@ -555,14 +555,14 @@ M: ebnf-non-terminal (transform) ( ast -- parser )
   'ebnf' (parse) check-parse-result ast>> transform ;\r
 \r
 : ebnf>quot ( string -- hashtable quot )\r
-  parse-ebnf dup dup parser [ main swap at compile ] with-variable\r
+  parse-ebnf dup dup parser [ main of compile ] with-variable\r
   [ compiled-parse ] curry [ with-scope ast>> ] curry ;\r
 \r
 PRIVATE>\r
 \r
 SYNTAX: <EBNF\r
   "EBNF>"\r
-  reset-tokenizer parse-multiline-string parse-ebnf main swap at  \r
+  reset-tokenizer parse-multiline-string parse-ebnf main of\r
   suffix! reset-tokenizer ;\r
 \r
 SYNTAX: [EBNF\r