summaryrefslogtreecommitdiff
path: root/libguile/deprecation.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 14:42:31 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-08-31 14:42:31 +0000
commit8c494e99736a68a24d3004652c6f4aceb16d7ecf (patch)
treede3e7d8e8f642aff57070fd12347af4d89c2a600 /libguile/deprecation.c
parentdee01b012cd5179b70a2e361ee08c364ed9f3314 (diff)
downloadguile-8c494e99736a68a24d3004652c6f4aceb16d7ecf.tar.gz
* Removed lots of deprecated stuff.
Diffstat (limited to 'libguile/deprecation.c')
-rw-r--r--libguile/deprecation.c12
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;