diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2014-01-15 20:19:37 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2014-01-15 20:19:37 -0800 |
commit | 9ba41588b1282bde4e113406923ec081124cded6 (patch) | |
tree | 5c5ace4694261fbe1f28eef5b8d0b51d6559fd4d /match.c | |
parent | a0d5ba9831cf2a33144337ab8f0e6f2fd1e6f0cb (diff) | |
download | txr-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.c | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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); } } |