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

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

diff --git a/libguile/keywords.c b/libguile/keywords.c
index c1ecada..b8959ea 100644 (file)
--- a/libguile/keywords.c
+++ b/libguile/keywords.c
@@ -65,10 +65,15 @@ prin_keyword (SCM exp,SCM port,scm_print_state *pstate)
 
 int scm_tc16_keyword;
 
+
+#if (SCM_DEBUG_DEPRECATED == 0)
+
 /* This global is only kept for backward compatibility.
    Will be removed in next release.  */
 int scm_tc16_kw;
 
+#endif  /* SCM_DEBUG_DEPRECATED == 0 */
+
 
 SCM_DEFINE (scm_make_keyword_from_dash_symbol, "make-keyword-from-dash-symbol", 1, 0, 0, 
             (SCM symbol),
@@ -136,7 +141,13 @@ scm_init_keywords ()
 {
   scm_tc16_keyword = scm_make_smob_type_mfpe ("keyword", 0,
                                              scm_markcdr, NULL, prin_keyword, NULL);
+
+#if (SCM_DEBUG_DEPRECATED == 0)
+
   scm_tc16_kw = scm_tc16_keyword;
+
+#endif  /* SCM_DEBUG_DEPRECATED == 0 */
+
   scm_keyword_obarray = scm_make_vector (SCM_MAKINUM (256), SCM_EOL);
 #include "libguile/keywords.x"
 }