cleanups to boot-9

* module/ice-9/boot-9.scm: Shuffle around some definitions.
  (module-add!): Removed stub definition, no longer used.
  (install-global-transformer): Removed, no longer used (yay!).

* module/ice-9/psyntax-pp.scm: Regenerated.

* module/ice-9/psyntax.scm: Remove install-global-transformer.

module/ice-9/boot-9.scm

@@ -134,12 +134,10 @@
 
 
 
-;; Before the module system boots, there are no module names. But
-;; psyntax does want a module-name definition, so give it one.
+;; Define a minimal stub of the module API for psyntax, before modules
+;; have booted.
 (define (module-name x)
   '(guile))
-(define (module-add! module sym var)
-  (hashq-set! (%get-pre-modules-obarray) sym var))
 (define (module-define! module sym val)
   (let ((v (hashq-ref (%get-pre-modules-obarray) sym)))
     (if v
@@ -149,6 +147,8 @@
 (define (module-ref module sym)
   (let ((v (module-variable module sym)))
     (if v (variable-ref v) (error "badness!" (pk module) (pk sym)))))
+(define (resolve-module . args)
+  #f)
 
 (define (make-module-ref mod var kind)
   (case kind
@@ -163,8 +163,6 @@
                    `(@@ ,mod ,var)
                    var))
     (else (error "foo" mod var kind))))
-(define (resolve-module . args)
-  #f)
 
 ;;; API provided by psyntax
 (define syntax-violation #f)
@@ -182,7 +180,6 @@
 (define $sc-dispatch #f)
 
 ;;; Useless crap I'd like to get rid of
-(define install-global-transformer #f)
 (define (annotation? x) #f)
 
 

module/ice-9/psyntax.scm

@@ -81,8 +81,6 @@
 ;;;      Revision 3, for a complete description)
 ;;;   (syntax-violation who message form [subform])
 ;;;      used to report errors found during expansion
-;;;   (install-global-transformer symbol value)
-;;;      used by expanded code to install top-level syntactic abstractions
 ;;;   ($sc-dispatch e p)
 ;;;      used by expanded code to handle syntax-case matching
 
@@ -2071,12 +2069,6 @@
                  (if who (cons who tail) tail))
                #f)))
 
-(set! install-global-transformer
-  (lambda (sym v)
-    (arg-check symbol? sym 'define-syntax)
-    (arg-check procedure? v 'define-syntax)
-    (global-extend 'macro sym v)))
-
 ;;; $sc-dispatch expects an expression and a pattern.  If the expression
 ;;; matches the pattern a list of the matching expressions for each
 ;;; "any" is returned.  Otherwise, #f is returned.  (This use of #f will