diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2016-11-04 21:20:21 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2016-11-04 21:20:21 -0700 |
commit | 3f9bfbb8b93238ee2c828a3bfe4b053e52d23f06 (patch) | |
tree | 7e31e23d6ff6ebaccac467a9d708ead3e83c1368 /eval.c | |
parent | 58e71895434760890e55a483a61b40ed57390b93 (diff) | |
download | txr-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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, |