summaryrefslogtreecommitdiff
path: root/libguile/debug.h
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/debug.h')
-rw-r--r--libguile/debug.h5
1 files changed, 4 insertions, 1 deletions
diff --git a/libguile/debug.h b/libguile/debug.h
index c292004a3..ce7dcfe20 100644
--- a/libguile/debug.h
+++ b/libguile/debug.h
@@ -64,6 +64,7 @@ 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;
+SCM_API int scm_check_memoize_p;
#define SCM_RESET_DEBUG_MODE \
do {\
@@ -73,8 +74,10 @@ do {\
&& scm_is_true (SCM_APPLY_FRAME_HDLR);\
scm_check_exit_p = (SCM_EXIT_FRAME_P || SCM_TRACE_P)\
&& scm_is_true (SCM_EXIT_FRAME_HDLR);\
+ scm_check_memoize_p = (SCM_MEMOIZE_P)\
+ && scm_is_true (SCM_MEMOIZE_HDLR);\
scm_debug_mode_p = SCM_DEVAL_P\
- || scm_check_entry_p || scm_check_apply_p || scm_check_exit_p;\
+ || scm_check_memoize_p || scm_check_entry_p || scm_check_apply_p || scm_check_exit_p;\
} while (0)
/* {Evaluator}