diff options
author | daniel <daniel@dani.localdomain.invalid> | 2009-02-13 14:27:41 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-04-05 19:54:25 +0200 |
commit | 6ab8238d99f477ee7ac12f1f1a3ec70aab3e68c7 (patch) | |
tree | 72d979fcb3d46ffcf2145085942a017b52a81179 /libguile/deprecation.c | |
parent | aa49787b5eb500807e82ce2698651515a7bdc743 (diff) | |
download | guile-6ab8238d99f477ee7ac12f1f1a3ec70aab3e68c7.tar.gz |
Make `--disable-deprecated' work.
* configure.in (enable_deprecated): Set SCM_WARN_DEPRECATED_DEFAULT
even when --disable-deprecated is passed.
* libguile/deprecation.h: Declare deprecation-issuing methods even
if SCM_ENABLE_DEPRECATED is not set.
* libguile/deprecation.c: Ditto.
(scm_init_deprecation): Include full body even for unset
SCM_ENABLE_DEPRECATED.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'libguile/deprecation.c')
-rw-r--r-- | libguile/deprecation.c | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/libguile/deprecation.c b/libguile/deprecation.c index 338c47c20..780e246f0 100644 --- a/libguile/deprecation.c +++ b/libguile/deprecation.c @@ -41,8 +41,6 @@ -#if (SCM_ENABLE_DEPRECATED == 1) - struct issued_warning { struct issued_warning *prev; const char *message; @@ -138,8 +136,6 @@ print_deprecation_summary (void) } } -#endif /* SCM_ENABLE_DEPRECATED == 1 */ - SCM_DEFINE(scm_include_deprecated_features, "include-deprecated-features", 0, 0, 0, (), @@ -157,7 +153,6 @@ SCM_DEFINE(scm_include_deprecated_features, void scm_init_deprecation () { -#if (SCM_ENABLE_DEPRECATED == 1) const char *level = getenv ("GUILE_WARN_DEPRECATED"); if (level == NULL) level = SCM_WARN_DEPRECATED_DEFAULT; @@ -170,7 +165,6 @@ scm_init_deprecation () SCM_WARN_DEPRECATED = 0; atexit (print_deprecation_summary); } -#endif #include "libguile/deprecation.x" } |