mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

* boot-9.scm: Preliminary solution: optionally load the debug

Browse source 
module.
This commit is contained in:
Mikael Djurfeldt 1996-08-23 04:54:23 +00:00
parent 96a8aaf3b3
commit c56634ba1a
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -791,8 +791,8 @@
(lambda args #f)))) (lambda args #f))))
(append (parse-path lp) (append (parse-path lp)
(list "" (list ""
(in-vicinity (implementation-vicinity) "gls/guile/") (in-vicinity (implementation-vicinity) "guile1.0b3/guile/")
(in-vicinity (implementation-vicinity) "gls/") (in-vicinity (implementation-vicinity) "guile1.0b3/")
(in-vicinity (implementation-vicinity) "slib/"))))) (in-vicinity (implementation-vicinity) "slib/")))))
;;; {try-load} ;;; {try-load}
@ -3565,5 +3565,11 @@
(define-module (guile)) ;;; {Load debug extension code if debug extensions present.}
;;;
;;; *fixme* This is a temporary solution.
;;;
(if (memq 'debug-extensions *features*)
(define-module (guile) :use-module (ice-9 debug))
(define-module (guile)))