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

* boot-9.scm (make-autoload-interface): Bugfix.

Browse source 
(top-repl): Autoload debugger.
This commit is contained in:
Mikael Djurfeldt 1999-09-12 11:04:57 +00:00
parent a4bfce1135
commit 6b64c19b70
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1991,7 +1991,8 @@
;; Replace autoload-interface with interface
(set-car! (memq a (module-uses module)) i)
(module-local-variable i sym))))))
(module-constructor #() #f b #f #f name 'autoload)))
(module-constructor #() #f b #f #f name 'autoload
'() (make-weak-value-hash-table 31) 0)))
;;; {Autoloading modules}
@ -2987,9 +2988,10 @@
;; Place the user in the guile-user module.
(define-module (guile-user)
:use-module (guile) ;so that bindings will be checked here first
:use-module (ice-9 session)
:use-module (ice-9 debug)
:use-module (ice-9 debugger))
:autoload (ice-9 debugger) (debug)) ;load debugger on demand
(if (memq 'threads *features*)
(define-module (guile-user) :use-module (ice-9 threads)))
(if (memq 'regex *features*)