From 6b64c19b70c9774545913b15fd63534b15067cd6 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sun, 12 Sep 1999 11:04:57 +0000 Subject: [PATCH] * boot-9.scm (make-autoload-interface): Bugfix. (top-repl): Autoload debugger. --- ice-9/boot-9.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index d1bf623e4..aa0522ecc 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -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*)