* Wrapped deprecated code between #if (SCM_DEBUG_DEPRECATED == 0) #endif.

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

diff --git a/libguile/error.c b/libguile/error.c
index c229139..5eab67a 100644 (file)
--- a/libguile/error.c
+++ b/libguile/error.c
@@ -159,6 +159,9 @@ scm_syserror_msg (const char *subr, const char *message, SCM args, int eno)
             scm_cons (SCM_MAKINUM (eno), SCM_EOL));
 }
 
+
+#if (SCM_DEBUG_DEPRECATED == 0)
+
 /* scm_sysmissing is no longer used in libguile.  it can probably be
    removed after a release or two.  there's a comment in NEWS about it
    (2000-01-09).  */
@@ -180,6 +183,9 @@ scm_sysmissing (const char *subr)
 #endif
 }
 
+#endif  /* SCM_DEBUG_DEPRECATED == 0 */
+
+
 SCM_SYMBOL (scm_num_overflow_key, "numerical-overflow");
 void
 scm_num_overflow (const char *subr)