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, 2 insertions, 2 deletions

diff --git a/unwind.h b/unwind.h
index 634fdfea..b2a02e74 100644
--- a/unwind.h
+++ b/unwind.h
@@ -60,7 +60,7 @@ struct uw_catch {
   uw_frtype_t type;
   val matches;
   val sym;
-  val exception;
+  val args;
   uw_frame_t *cont;
   int visible;
   extended_jmp_buf jb;
@@ -172,7 +172,7 @@ noreturn val type_mismatch(val, ...);
     goto uw_unwind_label;               \
       break;                            \
     case 2:                             \
-      EXCVAR = uw_catch.ca.exception;   \
+      EXCVAR = uw_catch.ca.args;        \
       SYMVAR = uw_catch.ca.sym;         \
       (void) SYMVAR;                    \
       /* prevent looping */             \