* Renamed GUILE_WARN_DEPRECATED_DEFAULT to SCM_WARN_DEPRECATED_DEFAULT.

[bpt/guile.git] / libguile / deprecation.c

diff --git a/libguile/deprecation.c b/libguile/deprecation.c
index a8e2e6c..87f5164 100644 (file)
--- a/libguile/deprecation.c
+++ b/libguile/deprecation.c
@@ -116,8 +116,8 @@ print_deprecation_summary (void)
 SCM_DEFINE(scm_include_deprecated_features,
           "include-deprecated-features", 0, 0, 0,
           (),
-          "Return @code{#t} iff deprecated features should be included\n"
-           "in public interfaces.")
+          "Return @code{#t} iff deprecated features should be included
+            in public interfaces.")
 #define FUNC_NAME s_scm_include_deprecated_features
 {
 #if SCM_DEBUG_DEPRECATED == 0
@@ -137,7 +137,7 @@ scm_init_deprecation ()
 #if SCM_DEBUG_DEPRECATED == 0
   const char *level = getenv ("GUILE_WARN_DEPRECATED");
   if (level == NULL)
-    level = GUILE_WARN_DEPRECATED_DEFAULT;
+    level = SCM_WARN_DEPRECATED_DEFAULT;
   if (!strcmp (level, "detailed"))
     issued_msgs = scm_permanent_object (scm_c_make_hash_table (17));
   else if (!strcmp (level, "no"))