summaryrefslogtreecommitdiff
path: root/libguile/eval.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2010-05-12 12:02:09 +0200
committerAndy Wingo <wingo@pobox.com>2010-05-13 23:37:15 +0200
commitcc00f4474306d961bbc997bbf7fbfe6e610888da (patch)
treed4afbeaf66724010bcf3eca22771411f4071d89b /libguile/eval.c
parentdf3f1090e8772a78206e6a5b65112fa66dbcd0af (diff)
downloadguile-cc00f4474306d961bbc997bbf7fbfe6e610888da.tar.gz
scm_badargsp is deprecated
* libguile/eval.h: * libguile/eval.c: * libguile/deprecated.h * libguile/deprecated.c (scm_badargsp): Deprecate scm_badargsp.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r--libguile/eval.c15
1 files changed, 0 insertions, 15 deletions
diff --git a/libguile/eval.c b/libguile/eval.c
index f2cbebe64..8e6e3c474 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -130,21 +130,6 @@ static void error_used_before_defined (void)
"Variable used before given a value", SCM_EOL, SCM_BOOL_F);
}
-int
-scm_badargsp (SCM formals, SCM args)
-{
- while (!scm_is_null (formals))
- {
- if (!scm_is_pair (formals))
- return 0;
- if (scm_is_null (args))
- return 1;
- formals = CDR (formals);
- args = CDR (args);
- }
- return !scm_is_null (args) ? 1 : 0;
-}
-
/* the environment:
(VAL ... . MOD)
If MOD is #f, it means the environment was captured before modules were