From 329318ae4f9c180ed68ec484bb5e1acdcb3dec44 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 24 Oct 2015 19:42:30 -0700
Subject: 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.
---
 unwind.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'unwind.c')

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;
-- 
cgit v1.2.3