diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-03-07 21:42:44 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1997-03-07 21:42:44 +0000 |
commit | a8485f4d34ed17d9578c379b53787446c2b66ece (patch) | |
tree | 5d438b131fcd11faa88864053db06a0a2c70702d /libguile/debug.h | |
parent | e3c37929e09fb2e73f54fefd64193e8e1d175163 (diff) | |
download | guile-a8485f4d34ed17d9578c379b53787446c2b66ece.tar.gz |
* debug.h (SCM_RESET_DEBUG_MODE): Bugfix: The old code didn't
clear the CHECK-flags.
Diffstat (limited to 'libguile/debug.h')
-rw-r--r-- | libguile/debug.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/debug.h b/libguile/debug.h index f54156310..0f796a687 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -100,9 +100,9 @@ extern int scm_check_entry_p, scm_check_apply_p, scm_check_exit_p; #define SCM_RESET_DEBUG_MODE \ {\ - if (SCM_ENTER_FRAME_P || SCM_BREAKPOINTS_P) CHECK_ENTRY = 1;\ - if (SCM_APPLY_FRAME_P || SCM_TRACE_P) CHECK_APPLY = 1;\ - if (SCM_EXIT_FRAME_P || SCM_TRACE_P) CHECK_EXIT = 1;\ + CHECK_ENTRY = SCM_ENTER_FRAME_P || SCM_BREAKPOINTS_P;\ + CHECK_APPLY = SCM_APPLY_FRAME_P || SCM_TRACE_P;\ + CHECK_EXIT = SCM_EXIT_FRAME_P || SCM_TRACE_P;\ scm_debug_mode = SCM_DEVAL_P || CHECK_ENTRY || CHECK_APPLY || CHECK_EXIT;\ scm_ceval_ptr = scm_debug_mode ? scm_deval : scm_ceval;\ } |