* evalext.[ch] (scm_m_undefine, undefine): Deprecated.

diff --git a/NEWS b/NEWS
index c50204c..4901166 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -204,6 +204,10 @@ without the soft port blocking.
 Guile now has breakpoints.  For details see the `Debugging Features'
 chapter in the reference manual.
 
+** Deprecated: undefine
+
+There is no replacement for undefine.
+
 * Changes to the C interface
 
 ** The value 'scm_mask_ints' is no longer writable.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index d87f85e..5b2c694 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,7 @@
+2002-11-24  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * evalext.[ch] (scm_m_undefine, undefine):  Deprecated.
+
 2002-11-17  Mikael Djurfeldt  <mdj@linnaeus>
 
        * debug.c (scm_make_iloc): Added missing "return".

diff --git a/libguile/evalext.c b/libguile/evalext.c
index 57b32e9..d3d7870 100644 (file)
--- a/libguile/evalext.c
+++ b/libguile/evalext.c
@@ -117,6 +117,7 @@ SCM_DEFINE (scm_defined_p, "defined?", 1, 1, 0,
 }
 #undef FUNC_NAME
 
+#if (SCM_ENABLE_DEPRECATED == 1)
 
 SCM_SYNTAX (s_undefine, "undefine", scm_makacro, scm_m_undefine);
 
@@ -141,6 +142,8 @@ scm_m_undefine (SCM x, SCM env)
 #endif
 }
 
+#endif
+
 SCM_REGISTER_PROC (s_map_in_order, "map-in-order", 2, 0, 1, scm_map);
 
 void 

diff --git a/libguile/evalext.h b/libguile/evalext.h
index e0db5d2..92f806a 100644 (file)
--- a/libguile/evalext.h
+++ b/libguile/evalext.h
@@ -52,12 +52,12 @@
 
 SCM_API SCM scm_m_generalized_set_x (SCM xorig, SCM env);
 SCM_API SCM scm_defined_p (SCM sym, SCM env);
-SCM_API SCM scm_m_undefine (SCM x, SCM env);
 SCM_API void scm_init_evalext (void);
 
 #if (SCM_ENABLE_DEPRECATED == 1)
 
 #define scm_definedp scm_defined_p
+SCM_API SCM scm_m_undefine (SCM x, SCM env);
 
 #endif