summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-09-12 02:24:10 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-09-12 02:24:10 +0000
commit274dc5fd6bd9a877ba5cbc29b4d99a0fa5dbc13e (patch)
treef83c0162d72b8b402ff5b59e705edec71af569b3
parent2b407f9bffafa6972b702701a26aa5c1bfd3406a (diff)
downloadguile-274dc5fd6bd9a877ba5cbc29b4d99a0fa5dbc13e.tar.gz
* eval.c, debug.h (SCM_BACKTRACE_WIDTH): New debug option: width.
-rw-r--r--libguile/debug.h17
-rw-r--r--libguile/eval.c1
2 files changed, 10 insertions, 8 deletions
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." },