Put '..' around parser error messages

db4
Chris Double 2008-06-19 14:34:09 +12:00
parent 3dc3a6f899
commit c92224f5b9
1 changed files with 2 additions and 2 deletions

View File

@ -416,7 +416,7 @@ M: ebnf-terminal (transform) ( ast -- parser )
M: ebnf-foreign (transform) ( ast -- parser ) M: ebnf-foreign (transform) ( ast -- parser )
dup word>> search 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 [ swap rule>> [ main ] unless* dupd swap rule [
nip nip
] [ ] [
@ -425,7 +425,7 @@ M: ebnf-foreign (transform) ( ast -- parser )
: parser-not-found ( name -- * ) : parser-not-found ( name -- * )
[ [
"Parser " % % " not found." % "Parser '" % % "' not found." %
] "" make throw ; ] "" make throw ;
M: ebnf-non-terminal (transform) ( ast -- parser ) M: ebnf-non-terminal (transform) ( ast -- parser )