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/deprecated.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/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index 4ff1bc2ac..b6e89bb3d 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -1916,6 +1916,27 @@ SCM_DEFINE (scm_dynamic_args_call, "dynamic-args-call", 3, 0, 0, + +int +scm_badargsp (SCM formals, SCM args) +{ + scm_c_issue_deprecation_warning + ("`scm_badargsp' is deprecated. Copy it into your project if you need it."); + + while (!scm_is_null (formals)) + { + if (!scm_is_pair (formals)) + return 0; + if (scm_is_null (args)) + return 1; + formals = scm_cdr (formals); + args = scm_cdr (args); + } + return !scm_is_null (args) ? 1 : 0; +} + + + void scm_i_init_deprecated () { |