Add a hook that is run whenever a new module is defined.

ice-9/ChangeLog

@@ -1,3 +1,9 @@
+2002-12-28  Neil Jerram  <neil@ossau.uklinux.net>
+
+	* boot-9.scm (module-defined-hook): New hook, run whenever a new
+	module is defined.
+	(process-define-module): Run this hook.
+
 2002-12-18  Mikael Djurfeldt  <mdj@kvast.blakulla.net>
 
 	* threads.scm: Removed bogus definition of future-ref.

ice-9/boot-9.scm

@@ -1783,8 +1783,14 @@
 		   (append (cadr kws) re-exports)))
 	    (else
 	     (unrecognized kws)))))
+    (run-hook module-defined-hook module)
     module))
 
+;; `module-defined-hook' is a hook that is run whenever a new module
+;; is defined.  Its members are called with one argument, the new
+;; module.
+(define module-defined-hook (make-hook 1))
+
 ;;; {Autoload}
 
 (define (make-autoload-interface module name bindings)