diff options
author | Andy Wingo <wingo@pobox.com> | 2010-05-12 12:02:09 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-05-13 23:37:15 +0200 |
commit | cc00f4474306d961bbc997bbf7fbfe6e610888da (patch) | |
tree | d4afbeaf66724010bcf3eca22771411f4071d89b /libguile/eval.c | |
parent | df3f1090e8772a78206e6a5b65112fa66dbcd0af (diff) | |
download | guile-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.c | 15 |
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 |