Reduce stack usage for args in a few places.

* eval.c (apply, do_eval): Use ARGS_MIN instead of ARGS_MAX.

* unwind.c (uw_throw): Ditto, when invoking handler.

1 files changed, 1 insertions, 2 deletions

diff --git a/unwind.c b/unwind.c
index a8df8914..79b9a7fd 100644
--- a/unwind.c
+++ b/unwind.c
@@ -425,8 +425,7 @@ val uw_throw(val sym, val args)
         if (uw_exception_subtype_p(sym, car(match)))
           break;
       if (match) {
-        args_decl(gf_args, ARGS_MAX);
-        args_init_list(gf_args, ARGS_MAX, cons(sym, args));
+        args_decl_list(gf_args, ARGS_MIN, cons(sym, args));
         --reentry_count;
         invoke_handler(ex, gf_args);
         ++reentry_count;