mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Make `--disable-deprecated' work.

Browse source 
* 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>
This commit is contained in:
daniel 2009-02-13 14:27:41 +01:00 • committed by Ludovic Courtès
parent aa49787b5e
commit 6ab8238d99
3 changed files with 7 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/deprecation.c
View file

@ -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"
}