summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2014-01-15 20:19:37 -0800
committerKaz Kylheku <kaz@kylheku.com>2014-01-15 20:19:37 -0800
commit9ba41588b1282bde4e113406923ec081124cded6 (patch)
tree5c5ace4694261fbe1f28eef5b8d0b51d6559fd4d /match.c
parenta0d5ba9831cf2a33144337ab8f0e6f2fd1e6f0cb (diff)
downloadtxr-9ba41588b1282bde4e113406923ec081124cded6.tar.gz
txr-9ba41588b1282bde4e113406923ec081124cded6.tar.bz2
txr-9ba41588b1282bde4e113406923ec081124cded6.zip
* arith.c: Revised error messages to refer to Lisp names instead
of C names of functions, or otherwise clarified them. * filter.c: Likewise. * lib.c: Likewise. * match.c: Likewise.
Diffstat (limited to 'match.c')
-rw-r--r--match.c8
1 files changed, 5 insertions, 3 deletions
diff --git a/match.c b/match.c
index d46eced7..853926c2 100644
--- a/match.c
+++ b/match.c
@@ -1266,7 +1266,7 @@ val format_field(val obj, val modifier, val filter, val eval_fun)
for (; modifier; pop(&modifier)) {
val item = first(modifier);
if (regexp(item)) {
- uw_throw(query_error_s, lit("format_field: regex modifier in output"));
+ uw_throw(query_error_s, lit("bad field format: regex modifier in output"));
} else if (keywordp(item)) {
plist = modifier;
break;
@@ -1294,7 +1294,8 @@ val format_field(val obj, val modifier, val filter, val eval_fun)
else if (stringp(v))
sep = v;
else
- uw_throwf(query_error_s, lit("format_field: bad modifier object: ~s"),
+ uw_throwf(query_error_s,
+ lit("bad field format: bad modifier object: ~s"),
item, nao);
}
}
@@ -1311,7 +1312,8 @@ val format_field(val obj, val modifier, val filter, val eval_fun)
filter = get_filter(filter_sym);
if (!filter) {
- uw_throwf(query_error_s, lit("format_field: ~s specifies unknown filter"),
+ uw_throwf(query_error_s,
+ lit("bad field format: ~s specifies unknown filter"),
filter_sym, nao);
}
}