Check for non-symbols in catch clauses.

* eval.c (expand_catch_clause): Check added that clause sym
must be a symbol.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index ae16dcf0..1adc8e62 100644
--- a/eval.c
+++ b/eval.c
@@ -3623,6 +3623,8 @@ static val expand_catch_clause(val form, val menv)
   val body_ex0 = expand_forms(body, new_menv);
   cons_bind (params_ex, body_ex,
              expand_params(params, body_ex0, menv, nil, form));
+  if (!symbolp(sym))
+    eval_error(form, lit("catch: ~s isn't a symbol"), sym, nao);
   if (body == body_ex && params == params_ex)
     return form;
   return rlcp(cons(sym, cons(params_ex, body_ex)), form);