1 files changed, 4 insertions, 0 deletions
diff --git a/eval.c b/eval.c
index 07d8c5cd..493992e0 100644
--- a/eval.c
+++ b/eval.c
@@ -2932,6 +2932,10 @@ static val me_op(val form, val menv)
   val is_op = and3(sym == do_s, consp(body_trans),
                    gethash(op_table, car(body_trans)));
 
+  if (c_num(max) > 1024)
+    eval_error(form, lit("~a: @~a calls for function with too many arguments"),
+               sym, max, nao);
+
   if (!eql(max, length(nums)) && !zerop(min))
     ssyms = supplement_op_syms(ssyms, max);