summaryrefslogtreecommitdiffstats
path: root/unwind.c
diff options
context:
space:
mode:
Diffstat (limited to 'unwind.c')
-rw-r--r--unwind.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/unwind.c b/unwind.c
index 51c2dae0..12878d9b 100644
--- a/unwind.c
+++ b/unwind.c
@@ -313,10 +313,8 @@ val uw_throw(val sym, val args)
if (opt_loglevel >= 1) {
val is_msg = and2(stringp(car(args)), null(cdr(args)));
val msg_or_args = if3(is_msg, car(args), args);
- val info = if2(source_loc(last_form_evaled),
- source_loc_str(last_form_evaled));
- val ex_info = if2(source_loc(last_form_expanded),
- source_loc_str(last_form_expanded));
+ val info = source_loc_str(last_form_evaled, nil);
+ val ex_info = source_loc_str(last_form_expanded, nil);
format(std_error, lit("~a: unhandled exception of type ~a:\n"),
prog_string, sym, nao);