diff options
author | Andy Wingo <wingo@pobox.com> | 2010-10-01 13:17:44 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-10-01 13:17:44 +0200 |
commit | e2e2631d7529842d3667573312c819cbeb7adc25 (patch) | |
tree | 7edaf11b4d7e38067a847aa93f74c7d1ec0927f2 /libguile/script.c | |
parent | ab9c9100d21a0a1e770f71572c7f32287b50366b (diff) | |
download | guile-e2e2631d7529842d3667573312c819cbeb7adc25.tar.gz |
deprecate turn-on-debugging, it is obsolete
* libguile/script.c (scm_compile_shell_switches): Don't generate calls
to turn-on-debugging.
* module/ice-9/boot-9.scm (turn-on-debugging): Remove.
* module/ice-9/deprecated.scm (turn-on-debugging): Add deprecated shim.
Diffstat (limited to 'libguile/script.c')
-rw-r--r-- | libguile/script.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/libguile/script.c b/libguile/script.c index 088c06b92..318e5aa15 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -406,7 +406,6 @@ SCM_SYMBOL (sym_load, "load"); SCM_SYMBOL (sym_eval_string, "eval-string"); SCM_SYMBOL (sym_command_line, "command-line"); SCM_SYMBOL (sym_begin, "begin"); -SCM_SYMBOL (sym_turn_on_debugging, "turn-on-debugging"); SCM_SYMBOL (sym_load_user_init, "load-user-init"); SCM_SYMBOL (sym_ice_9, "ice-9"); SCM_SYMBOL (sym_top_repl, "top-repl"); @@ -716,11 +715,9 @@ scm_compile_shell_switches (int argc, char **argv) } /* If debugging was requested, or we are interactive and debugging - was not explicitly turned off, turn on debugging. */ + was not explicitly turned off, use the debug engine. */ if (turn_on_debugging || (interactive && !dont_turn_on_debugging)) { - /* FIXME: backtraces and positions should always be on (?) */ - tail = scm_cons (scm_cons (sym_turn_on_debugging, SCM_EOL), tail); scm_c_set_default_vm_engine_x (SCM_VM_DEBUG_ENGINE); scm_c_set_vm_engine_x (scm_the_vm (), SCM_VM_DEBUG_ENGINE); } |