* eval.c (op_catch): Treat the nil exception object as an empty

list, and not the atom nil.

* match.c (v_try): Do not transform an atomic exception x into
the list ((t . x)). Just to (x). This (t . x) representation is
a vestige of from the time when the exception consisted of the
old-style return values from txeval.

1 files changed, 1 insertions, 1 deletions

diff --git a/match.c b/match.c
index 66eac4b1..93b55dbf 100644
--- a/match.c
+++ b/match.c
@@ -3033,7 +3033,7 @@ static val v_try(match_files_ctx *c)
           val body = third(clause);
           val vals = if3(listp(exvals),
                          exvals,
-                         cons(cons(t, exvals), nil));
+                         cons(exvals, nil));
 
           if (first(clause) == catch_s) {
             if (uw_exception_subtype_p(exsym, type)) {