Remove unused args_limit.

* args.c (args_limit): Function removed.

* args.h (args_limit): Declaration removed.

2 files changed, 0 insertions, 10 deletions

diff --git a/args.c b/args.c
index fec83825..d9a442e3 100644
--- a/args.c
+++ b/args.c
@@ -37,14 +37,6 @@
 
 val args_cons_list(struct args *args);
 
-cnum args_limit(val name, cnum in)
-{
-  if (in <= ARGS_MAX)
-    return in;
-  uw_throwf(assert_s, lit("~a: too many trailing arguments (limit is ~s)"),
-            name, num(ARGS_MAX), nao);
-}
-
 val args_add_checked(val name, struct args *args, val arg)
 {
   if (args->fill >= args->argc)
diff --git a/args.h b/args.h
index 0349d160..a9174699 100644
--- a/args.h
+++ b/args.h
@@ -40,8 +40,6 @@ typedef int arg_index;
   (coerce(struct args *,                                                \
           alloca(offsetof(struct args, arg) + (N)*sizeof (val))))
 
-cnum args_limit(val name, cnum in);
-
 INLINE void args_init_list(struct args *args, cnum argc, val list)
 {
   args->argc = argc;