summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2016-04-22 06:06:53 -0700
committerKaz Kylheku <kaz@kylheku.com>2016-04-22 06:06:53 -0700
commitd9f9ae14ba19c519b08ac41467d9c8ab94b2280f (patch)
treefb7faa34eec8109deb61a8c94686c6b48308ac4c /eval.c
parent368a4d05039d41eb31120f8624b9cf7037035d2e (diff)
downloadtxr-d9f9ae14ba19c519b08ac41467d9c8ab94b2280f.tar.gz
txr-d9f9ae14ba19c519b08ac41467d9c8ab94b2280f.tar.bz2
txr-d9f9ae14ba19c519b08ac41467d9c8ab94b2280f.zip
Don't quote path in load and @(load) diagnostics.
* eval.c (sys_load): Use ~a format specifier rather than ~s for the load path (if already known to be a string). * match.c (v_load): Likewise.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index d9aca0df..73eaf95b 100644
--- a/eval.c
+++ b/eval.c
@@ -3269,7 +3269,7 @@ static val sys_load(val target, val sloc)
if (!read_eval_stream(stream, std_error, nil)) {
rlset(sloc, sloc);
close_stream(stream, nil);
- eval_error(sloc, lit("load: ~s contains errors"), path, nao);
+ eval_error(sloc, lit("load: ~a contains errors"), path, nao);
}
close_stream(stream, nil);