diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 14:42:31 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-08-31 14:42:31 +0000 |
commit | 8c494e99736a68a24d3004652c6f4aceb16d7ecf (patch) | |
tree | de3e7d8e8f642aff57070fd12347af4d89c2a600 /libguile/deprecation.c | |
parent | dee01b012cd5179b70a2e361ee08c364ed9f3314 (diff) | |
download | guile-8c494e99736a68a24d3004652c6f4aceb16d7ecf.tar.gz |
* Removed lots of deprecated stuff.
Diffstat (limited to 'libguile/deprecation.c')
-rw-r--r-- | libguile/deprecation.c | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/libguile/deprecation.c b/libguile/deprecation.c index 9271fb0c5..192f25519 100644 --- a/libguile/deprecation.c +++ b/libguile/deprecation.c @@ -53,10 +53,10 @@ -#if (SCM_DEBUG_DEPRECATED == 0) +#if (SCM_ENABLE_DEPRECATED == 1) /* This is either a boolean (when a summary should be printed) or a - hashtab (when detailed warnings shouold be printed). + hashtab (when detailed warnings should be printed). */ SCM issued_msgs; @@ -121,11 +121,7 @@ SCM_DEFINE(scm_include_deprecated_features, "in public interfaces.") #define FUNC_NAME s_scm_include_deprecated_features { -#if SCM_DEBUG_DEPRECATED == 0 - return SCM_BOOL_T; -#else - return SCM_BOOL_F; -#endif + return SCM_BOOL (SCM_ENABLE_DEPRECATED == 1); } #undef FUNC_NAME @@ -135,7 +131,7 @@ SCM_DEFINE(scm_include_deprecated_features, void scm_init_deprecation () { -#if SCM_DEBUG_DEPRECATED == 0 +#if (SCM_ENABLE_DEPRECATED == 1) const char *level = getenv ("GUILE_WARN_DEPRECATED"); if (level == NULL) level = SCM_WARN_DEPRECATED_DEFAULT; |