mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-25 22:20:28 +02:00
Code Activity

* boot-9.scm: If using emacs interface, enable backtraces

Browse source 
automatically.
This commit is contained in:
Mikael Djurfeldt 1997-07-23 18:15:37 +00:00
parent e38303a26d
commit 8309a10d87
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
Wed Jul 23 20:13:04 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm: If using emacs interface, enable backtraces
automatically.
Mon Jul 21 06:45:45 1997 Gary Houston <ghouston@actrix.gen.nz> Mon Jul 21 06:45:45 1997 Gary Houston <ghouston@actrix.gen.nz>
* boot-9.scm (dup->port, dup->inport, dup->outport, dup->fdes, * boot-9.scm (dup->port, dup->inport, dup->outport, dup->fdes,

5
ice-9/boot-9.scm
View file

@ -3909,7 +3909,10 @@
(if (and (module-defined? the-root-module 'use-emacs-interface) (if (and (module-defined? the-root-module 'use-emacs-interface)
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.} ;;; {Load regexp code if regexp primitives are available.}