summaryrefslogtreecommitdiff
path: root/libguile/deprecation.c
diff options
context:
space:
mode:
authordaniel <daniel@dani.localdomain.invalid>2009-02-13 14:27:41 +0100
committerLudovic Courtès <ludo@gnu.org>2009-04-05 19:54:25 +0200
commit6ab8238d99f477ee7ac12f1f1a3ec70aab3e68c7 (patch)
tree72d979fcb3d46ffcf2145085942a017b52a81179 /libguile/deprecation.c
parentaa49787b5eb500807e82ce2698651515a7bdc743 (diff)
downloadguile-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.c6
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"
}