diff options
Diffstat (limited to 'libguile/debug.h')
-rw-r--r-- | libguile/debug.h | 18 |
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 */ |