diff options
author | Andy Wingo <wingo@pobox.com> | 2010-10-01 13:11:51 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-10-01 13:11:51 +0200 |
commit | ab9c9100d21a0a1e770f71572c7f32287b50366b (patch) | |
tree | 566eb3fd550a85b4fb6f2dd02c51ed5c450c28c4 /libguile/eval.c | |
parent | 1f603ae28358198f2df6f8c2208053bd4777dcfa (diff) | |
download | guile-ab9c9100d21a0a1e770f71572c7f32287b50366b.tar.gz |
scm_debug_opts to debug.c, backtrace on by default, scm_*_opts internal linkage
* libguile/eval.c:
* libguile/debug.c (scm_debug_opts): Move here, from eval.c. Change
SCM_BACKTRACE_P to 1, initially.
* libguile/private-options.h: Make all options vars private.
Diffstat (limited to 'libguile/eval.c')
-rw-r--r-- | libguile/eval.c | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index 21cb5508b..293612ed8 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -435,35 +435,6 @@ eval (SCM x, SCM env) } } -scm_t_option scm_debug_opts[] = { - { SCM_OPTION_BOOLEAN, "backwards", 0, - "Display backtrace in anti-chronological order." }, - { SCM_OPTION_INTEGER, "width", 79, "Maximal width of backtrace." }, - { SCM_OPTION_INTEGER, "depth", 20, "Maximal length of printed backtrace." }, - { SCM_OPTION_BOOLEAN, "backtrace", 0, "Show backtrace on error." }, - /* This default stack limit will be overridden by debug.c:init_stack_limit(), - if we have getrlimit() and the stack limit is not INFINITY. But it is still - important, as some systems have both the soft and the hard limits set to - INFINITY; in that case we fall back to this value. - - The situation is aggravated by certain compilers, which can consume - "beaucoup de stack", as they say in France. - - See http://thread.gmane.org/gmane.lisp.guile.devel/8599/focus=8662 for - more discussion. This setting is 640 KB on 32-bit arches (should be enough - for anyone!) or a whoppin' 1280 KB on 64-bit arches. - */ - { SCM_OPTION_INTEGER, "stack", 160000, "Stack size limit (measured in words; 0 = no check)." }, - { SCM_OPTION_SCM, "show-file-name", (unsigned long)SCM_BOOL_T, - "Show file names and line numbers " - "in backtraces when not `#f'. A value of `base' " - "displays only base names, while `#t' displays full names."}, - { SCM_OPTION_BOOLEAN, "warn-deprecated", 0, - "Warn when deprecated features are used." }, - { 0 }, -}; - - /* Simple procedure calls |