summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--args.c8
-rw-r--r--args.h2
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;