summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2016-11-04 21:20:21 -0700
committerKaz Kylheku <kaz@kylheku.com>2016-11-04 21:20:21 -0700
commit3f9bfbb8b93238ee2c828a3bfe4b053e52d23f06 (patch)
tree7e31e23d6ff6ebaccac467a9d708ead3e83c1368 /eval.c
parent58e71895434760890e55a483a61b40ed57390b93 (diff)
downloadtxr-3f9bfbb8b93238ee2c828a3bfe4b053e52d23f06.tar.gz
txr-3f9bfbb8b93238ee2c828a3bfe4b053e52d23f06.tar.bz2
txr-3f9bfbb8b93238ee2c828a3bfe4b053e52d23f06.zip
Don't print distracting path in error trace.
* eval.c (error_trace): No need to indicate where an expansion was calculated; it is distracting information when the exception isn't happening at expansion time.
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/eval.c b/eval.c
index 0016630e..33f1af51 100644
--- a/eval.c
+++ b/eval.c
@@ -280,8 +280,8 @@ void error_trace(val exsym, val exvals, val out_stream, val prefix)
}
if (origin) {
- format(out_stream, lit("~a ... an expansion at ~a of ~!~s\n"),
- prefix, info, origin, nao);
+ format(out_stream, lit("~a ... an expansion of ~!~s\n"),
+ prefix, origin, nao);
} else if (!first) {
if (info)
format(out_stream, lit("~a which is located at ~a\n"), prefix,