Put '..' around parser error messages
parent
3dc3a6f899
commit
c92224f5b9
|
@ -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 )
|
||||||
|
|
Loading…
Reference in New Issue