diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2007-01-19 20:05:05 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2007-01-19 20:05:05 +0000 |
commit | 72f19c26469dc95fbb6bf42e9443ac4d3379fd69 (patch) | |
tree | 6e51e6235b813c0536797ff42a3f828f16bb8195 /libguile/debug.h | |
parent | 03347a975b726f4b645339660156f62aba1f27ec (diff) | |
download | guile-72f19c26469dc95fbb6bf42e9443ac4d3379fd69.tar.gz |
* debug.h (SCM_RESET_DEBUG_MODE): switch to debugging if
memoize-symbol is set.
* eval.h (SCM_MEMOIZE_HDLR): add macros for memoize symbol trap.
* eval.c (CEVAL): add memoize_symbol trap.
* read.c: idem.
* eval.c: terminate option lists with 0.
Diffstat (limited to 'libguile/debug.h')
-rw-r--r-- | libguile/debug.h | 5 |
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} |