From 8309a10d870004f7fc1cd3776fa2f99fb05fc99a Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 23 Jul 1997 18:15:37 +0000 Subject: [PATCH] * boot-9.scm: If using emacs interface, enable backtraces automatically. --- ice-9/ChangeLog | 5 +++++ ice-9/boot-9.scm | 5 ++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 65ccf2787..0a33fd8b0 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +Wed Jul 23 20:13:04 1997 Mikael Djurfeldt + + * boot-9.scm: If using emacs interface, enable backtraces + automatically. + Mon Jul 21 06:45:45 1997 Gary Houston * boot-9.scm (dup->port, dup->inport, dup->outport, dup->fdes, diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 4542f6415..8faf9c0ce 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -3909,7 +3909,10 @@ (if (and (module-defined? the-root-module 'use-emacs-interface) use-emacs-interface) - (define-module (guile) :use-module (ice-9 emacs))) + (begin + (if (memq 'debug-extensions *features*) + (debug-enable 'backtrace)) + (define-module (guile) :use-module (ice-9 emacs)))) ;;; {Load regexp code if regexp primitives are available.}