From bdc4dba50ad8f250d9edfc2036cfca1eadd4fc50 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 23 Aug 2015 19:43:41 -0700
Subject: Remove unused args_limit.

* args.c (args_limit): Function removed.

* args.h (args_limit): Declaration removed.
---
 args.c | 8 --------
 args.h | 2 --
 2 files changed, 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;
-- 
cgit v1.2.3