summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2018-04-10 06:37:12 -0700
committerKaz Kylheku <kaz@kylheku.com>2018-04-10 06:37:12 -0700
commit508e7d7216062fce1c61de1c0f3262dbbe9b8832 (patch)
tree6c4aa8b8953c66f502c1ab91eacd97e4dfbc7355
parent64ed7739adb762fd93aee501a77b926e6e1215d0 (diff)
downloadtxr-508e7d7216062fce1c61de1c0f3262dbbe9b8832.tar.gz
txr-508e7d7216062fce1c61de1c0f3262dbbe9b8832.tar.bz2
txr-508e7d7216062fce1c61de1c0f3262dbbe9b8832.zip
parser: duplicate package prefix in diagnostic.
* parser.l (directive_tok): Fix printing of duplicate package prefix on symbol.
-rw-r--r--parser.l4
1 files changed, 2 insertions, 2 deletions
diff --git a/parser.l b/parser.l
index da093b0f..6c68b280 100644
--- a/parser.l
+++ b/parser.l
@@ -1080,8 +1080,8 @@ static int directive_tok(scanner_t *yyscanner, int tok, int state)
val package = symbol_package(sym);
if (package != user_package && package != keyword_package) {
- yyerrprepf(yyg, lit("~s: this is ~a:~s: not from the usr package"),
- sym, package_name(package), sym, nao);
+ yyerrprepf(yyg, lit("~a: this is ~a:~a, not usr:~a"),
+ symname, package_name(package), symname, symname, nao);
tok = ERRTOK;
}
}