more steps on the way to boot-time syncase

* module/ice-9/boot-9.scm: Define a version of module-add! for psyntax,
  before modules are booted.

* module/ice-9/psyntax.scm: Remove a warning, and rename a variable.
  Initialize a new variable to 'sc-macro, though it will have no effect.

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

module/ice-9/boot-9.scm

@@ -129,6 +129,8 @@
 ;; psyntax does want a module-name definition, so give it one.
 (define (module-name x)
   #f)
+(define (module-add! module sym var)
+  (hashq-set! (%get-pre-modules-obarray) sym var))
 
 ;; (eval-when (situation...) form...)
 ;;

module/ice-9/psyntax.scm

@@ -337,12 +337,12 @@
     ((_) (gensym))))
 
 (define put-global-definition-hook
-  (lambda (symbol binding module)
-    (let* ((module (if module
-                       (resolve-module module)
-                       (warn "wha" symbol (current-module))))
+  (lambda (symbol binding modname)
+    (let* ((module (if modname
+                       (resolve-module modname)
+                       (current-module)))
            (v (or (module-variable module symbol)
-                  (let ((v (make-variable sc-macro)))
+                  (let ((v (make-variable 'sc-macro)))
                     (module-add! module symbol v)
                     v))))
       ;; Don't destroy Guile macros corresponding to primitive syntax