summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
Diffstat (limited to 'match.c')
-rw-r--r--match.c5
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))
{