*** empty log message ***

[bpt/guile.git] / libguile / debug.h

diff --git a/libguile/debug.h b/libguile/debug.h
index 96d69ac..de4a005 100644 (file)
--- a/libguile/debug.h
+++ b/libguile/debug.h
@@ -3,7 +3,8 @@
 #ifndef SCM_DEBUG_H
 #define SCM_DEBUG_H
 
-/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2004
+ * Free Software Foundation, Inc.
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
@@ -59,9 +60,7 @@ SCM_API scm_t_option scm_debug_opts[];
 #define SCM_SHOW_FILE_NAME     scm_debug_opts[13].val
 #define SCM_N_DEBUG_OPTIONS 14
 
-SCM_API SCM (*scm_ceval_ptr) (SCM exp, SCM env);
-
-SCM_API int scm_debug_mode;
+SCM_API int scm_debug_mode_p;
 SCM_API int scm_check_entry_p;
 SCM_API int scm_check_apply_p;
 SCM_API int scm_check_exit_p;
@@ -74,9 +73,8 @@ do {\
     && !SCM_FALSEP (SCM_APPLY_FRAME_HDLR);\
   scm_check_exit_p = (SCM_EXIT_FRAME_P || SCM_TRACE_P)\
     && !SCM_FALSEP (SCM_EXIT_FRAME_HDLR);\
-  scm_debug_mode = SCM_DEVAL_P\
+  scm_debug_mode_p = SCM_DEVAL_P\
     || scm_check_entry_p || scm_check_apply_p || scm_check_exit_p;\
-  scm_ceval_ptr = scm_debug_mode ? scm_deval : scm_ceval;\
 } while (0)
 
 /* {Evaluator}
@@ -128,8 +126,6 @@ typedef struct scm_t_debug_frame
 #define SCM_SET_MACROEXP(x) ((x).status |= SCM_MACROEXPF)
 #define SCM_CLEAR_MACROEXP(x) ((x).status &= ~SCM_MACROEXPF)
 
-#define SCM_DEBUGGINGP scm_debug_mode
-
 /* {Debug Objects}
  */
 
@@ -170,8 +166,6 @@ SCM_API SCM scm_make_debugobj (scm_t_debug_frame *debug);
 SCM_API void scm_init_debug (void);
 
 #ifdef GUILE_DEBUG
-SCM_API SCM scm_make_iloc (SCM frame, SCM binding, SCM cdrp);
-SCM_API SCM scm_iloc_p (SCM obj);
 SCM_API SCM scm_memcons (SCM car, SCM cdr, SCM env);
 SCM_API SCM scm_mem_to_proc (SCM obj);
 SCM_API SCM scm_proc_to_mem (SCM obj);
@@ -179,9 +173,15 @@ SCM_API SCM scm_debug_hang (SCM obj);
 #endif /*GUILE_DEBUG*/
 
 #if SCM_ENABLE_DEPRECATED == 1
+
 #define CHECK_ENTRY      scm_check_entry_p
 #define CHECK_APPLY     scm_check_apply_p
 #define CHECK_EXIT       scm_check_exit_p
+
+/* Deprecated in guile 1.7.0 on 2004-03-29.  */
+#define SCM_DEBUGGINGP scm_debug_mode_p
+#define scm_debug_mode scm_debug_mode_p
+
 #endif
 
 #endif  /* SCM_DEBUG_H */