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
commitc739fd374884676993c88f7a8e223988d622e5d6 (patch)
tree6c4aa8b8953c66f502c1ab91eacd97e4dfbc7355
parentbe3f4ac0a0582347e663eb58989e32fe54018d82 (diff)
downloadtxr-c739fd374884676993c88f7a8e223988d622e5d6.tar.gz
txr-c739fd374884676993c88f7a8e223988d622e5d6.tar.bz2
txr-c739fd374884676993c88f7a8e223988d622e5d6.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;
}
}