summaryrefslogtreecommitdiff
path: root/libguile/debug.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/debug.h')
-rw-r--r--libguile/debug.h18
1 files changed, 10 insertions, 8 deletions
diff --git a/libguile/debug.h b/libguile/debug.h
index ee272629d..de4a0054b 100644
--- 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}
*/
@@ -177,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 */