summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--libguile/script.c5
-rw-r--r--module/ice-9/boot-9.scm4
-rw-r--r--module/ice-9/deprecated.scm10
3 files changed, 10 insertions, 9 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);
}
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index b8f5a31e5..f945ffd27 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -1028,10 +1028,6 @@ If there is no handler at all, Guile prints an error and then exits."
;; This is mostly for the internal use of the code generated by
;; scm_compile_shell_switches.
-(define (turn-on-debugging)
- (debug-enable 'backtrace)
- (read-enable 'positions))
-
(define (load-user-init)
(let* ((home (or (getenv "HOME")
(false-if-exception (passwd:dir (getpwuid (getuid))))
diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index 17030bc88..faff234b9 100644
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -64,7 +64,8 @@
the-last-stack
save-stack
named-module-use!
- top-repl))
+ top-repl
+ turn-on-debugging))
;;;; Deprecated definitions.
@@ -674,3 +675,10 @@ it.")
"Remove it from your code.")
(apply debug-enable (delq 'debug opts)))
(apply debug-enable opts)))))
+
+(define (turn-on-debugging)
+ (issue-deprecation-warning
+ "`(turn-on-debugging)' is obsolete and usually has no effect."
+ "Debugging capabilities are present by default.")
+ (debug-enable 'backtrace)
+ (read-enable 'positions))