Put '..' around parser error messages

diff --git a/extra/peg/ebnf/ebnf.factor b/extra/peg/ebnf/ebnf.factor
index 08ac24e5357a39bbd9b1f0051d1e7e5092b25c03..2aec8b9aea09ccd5cb573a0d9941135aa5da5094 100644 (file)
--- a/extra/peg/ebnf/ebnf.factor
+++ b/extra/peg/ebnf/ebnf.factor
@@ -416,7 +416,7 @@ M: ebnf-terminal (transform) ( ast -- parser )
 \r
 M: ebnf-foreign (transform) ( ast -- parser )\r
   dup word>> search\r
-  [ "Foreign word " swap word>> append " not found" append throw ] unless*\r
+  [ "Foreign word '" swap word>> append "' not found" append throw ] unless*\r
   swap rule>> [ main ] unless* dupd swap rule [\r
     nip\r
   ] [\r
@@ -425,7 +425,7 @@ M: ebnf-foreign (transform) ( ast -- parser )
 \r
 : parser-not-found ( name -- * )\r
   [\r
-    "Parser " % % " not found." %\r
+    "Parser '" % % "' not found." %\r
   ] "" make throw ;\r
 \r
 M: ebnf-non-terminal (transform) ( ast -- parser )\r