From 6f9bd3ab61f0e96c70f7a4587cef017fb155bedd Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 4 Aug 2015 21:19:54 -0700 Subject: * eval.c (bind_args): Use new ~! for proper indentation of multi-line context form. (apply): Use ~! for proper indentation of function code. * unwind.c (uw_throw): Use ~! for proper indentation of code. --- unwind.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'unwind.c') diff --git a/unwind.c b/unwind.c index 12878d9b..7d729ee0 100644 --- a/unwind.c +++ b/unwind.c @@ -319,17 +319,17 @@ val uw_throw(val sym, val args) prog_string, sym, nao); if (info && sym != eval_error_s) - format(std_error, lit("~a: possibly triggered at ~a by form ~s\n"), + format(std_error, lit("~a: possibly triggered at ~a by form ~!~s\n"), prog_string, info, last_form_evaled, nao); if (ex_info) - format(std_error, lit("~a: during expansion at ~a of form ~s\n"), + format(std_error, lit("~a: during expansion at ~a of form ~!~s\n"), prog_string, ex_info, last_form_expanded, nao); format(std_error, if3(is_msg, - lit("~a: message: ~a\n"), - lit("~a: exception args: ~s\n")), + lit("~a: message: ~!~a\n"), + lit("~a: exception args: ~!~s\n")), prog_string, msg_or_args, nao); } if (uw_exception_subtype_p(sym, query_error_s) || -- cgit v1.2.3