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