From: Mikael Djurfeldt Date: Sun, 12 Sep 1999 02:24:10 +0000 (+0000) Subject: * eval.c, debug.h (SCM_BACKTRACE_WIDTH): New debug option: width. X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/274dc5fd6bd9a877ba5cbc29b4d99a0fa5dbc13e * eval.c, debug.h (SCM_BACKTRACE_WIDTH): New debug option: width. --- diff --git a/libguile/debug.h b/libguile/debug.h index 13a599b74..7345962d8 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -73,14 +73,15 @@ extern scm_option scm_debug_opts[]; #define SCM_TRACE_P scm_debug_opts[2].val #define SCM_REC_PROCNAMES_P scm_debug_opts[3].val #define SCM_BACKWARDS_P scm_debug_opts[4].val -#define SCM_BACKTRACE_INDENT scm_debug_opts[5].val -#define SCM_N_FRAMES scm_debug_opts[6].val -#define SCM_BACKTRACE_MAXDEPTH scm_debug_opts[7].val -#define SCM_BACKTRACE_DEPTH scm_debug_opts[8].val -#define SCM_BACKTRACE_P scm_debug_opts[9].val -#define SCM_DEVAL_P scm_debug_opts[10].val -#define SCM_STACK_LIMIT scm_debug_opts[11].val -#define SCM_N_DEBUG_OPTIONS 12 +#define SCM_BACKTRACE_WIDTH scm_debug_opts[5].val +#define SCM_BACKTRACE_INDENT scm_debug_opts[6].val +#define SCM_N_FRAMES scm_debug_opts[7].val +#define SCM_BACKTRACE_MAXDEPTH scm_debug_opts[8].val +#define SCM_BACKTRACE_DEPTH scm_debug_opts[9].val +#define SCM_BACKTRACE_P scm_debug_opts[10].val +#define SCM_DEVAL_P scm_debug_opts[11].val +#define SCM_STACK_LIMIT scm_debug_opts[12].val +#define SCM_N_DEBUG_OPTIONS 13 extern SCM (*scm_ceval_ptr) SCM_P ((SCM exp, SCM env)); diff --git a/libguile/eval.c b/libguile/eval.c index c8f07fc74..cc565d2e6 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -1748,6 +1748,7 @@ scm_option scm_debug_opts[] = { "Record procedure names at definition." }, { SCM_OPTION_BOOLEAN, "backwards", 0, "Display backtrace in anti-chronological order." }, + { SCM_OPTION_INTEGER, "width", 79, "Maximal width of backtrace." }, { SCM_OPTION_INTEGER, "indent", 10, "Maximal indentation in backtrace." }, { SCM_OPTION_INTEGER, "frames", 3, "Maximum number of tail-recursive frames in backtrace." },