Slight internal representation change of string-only exceptions.

One upshot of all this is that (throw 'foo "msg") now
does exactly the same thing as (throwf 'foo "msg").
A message-only exception really is a one-string exception argument
list ("message ..."), like the documentation says.

* unwind.h (struct uw_catch): exception member renamed to args.
(uw_catch): Macro follows structure member rename.

* eval.c (op_catch): Removed now unnecessary kludge of turning non-list
exception argument list into a one-element argument list.

* match.c (v_try): Similar hack to the one in op_catch
removed here.

* unwind.c (uw_unwind_to_exit_point, uw_push_catch): Follows rename of
exception member.
(uw_throw): The exception parameter is renamed to args.  The kludge
removed from op_catch re-appears here, because numerous calls
to uw_throw just pass a string as args. It's less of a kludge here
because this is the master entry point to exception processing,
and it straightens out the representation right away.
The exception arguments or message are printed in a clearer way.

1 files changed, 1 insertions, 4 deletions

diff --git a/match.c b/match.c
index 13d58fe1..e4e7b119 100644
--- a/match.c
+++ b/match.c
@@ -3299,16 +3299,13 @@ static val v_try(match_files_ctx *c)
           val type = first(second(clause));
           val params = second(second(clause));
           val body = third(clause);
-          val vals = if3(listp(exvals),
-                         exvals,
-                         cons(exvals, nil));
 
           if (first(clause) == catch_s) {
             if (uw_exception_subtype_p(exsym, type)) {
               val all_bind = t;
               val piter, viter;
 
-              for (piter = params, viter = vals;
+              for (piter = params, viter = exvals;
                    piter && viter;
                    piter = cdr(piter), viter = cdr(viter))
               {