leap of faith: (ice-9 syncase) in psyntax-pp.scm -> (guile)

* module/ice-9/psyntax-pp.scm: Manually switch psyntax-pp over to (guile)
  from (ice-9 syncase). Heh heh.

guile-readline/ice-9/readline.scm

@@ -169,8 +169,6 @@
 (define-public (set-readline-read-hook! h)
   (set! read-hook h))
 
-(if (provided? 'regex)
-    (begin
 (define-public apropos-completion-function
   (let ((completions '()))
     (lambda (text cont?)
@@ -185,8 +183,8 @@
             (begin (set! completions (cdr completions))
                    retval))))))
 
-      (set! *readline-completion-function* apropos-completion-function)
+(if (provided? 'regex)
-      ))
+    (set! *readline-completion-function* apropos-completion-function))
 
 (define-public (with-readline-completion-function completer thunk)
   "With @var{completer} as readline completion function, call @var{thunk}."

module/ice-9/boot-9.scm

@@ -2162,6 +2162,7 @@ module '(ice-9 q) '(make-q q-length))}."
     (and (not (autoload-done-or-in-progress? dir-hint name))
 	 (let ((didit #f))
 	   (define (load-file proc file)
+             (pk 'loading proc file)
 	     (save-module-excursion (lambda () (proc file)))
 	     (set! didit #t))
 	   (dynamic-wind