summaryrefslogtreecommitdiffstats
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
commit30459d68fe6ddbbdd69e092d576b9922bcc48411 (patch)
tree7e31e23d6ff6ebaccac467a9d708ead3e83c1368
parent31df4fbb0dbce2b40c1739f2fbdb7b1193cd3a74 (diff)
downloadtxr-30459d68fe6ddbbdd69e092d576b9922bcc48411.tar.gz
txr-30459d68fe6ddbbdd69e092d576b9922bcc48411.tar.bz2
txr-30459d68fe6ddbbdd69e092d576b9922bcc48411.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.
-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,