Fix web-static to work with new data structures.

src/web-static.scm

@@ -39,10 +39,12 @@
 	 (chicken process-context)
 	 (chicken pathname)
 	 (chicken file)
+	 (chicken file posix)
 	 member-record
 	 utils
 	 configuration
-	 members-payments)
+	 members-payments
+	 members-base)
 
  ;; Generate all the files in specified (default current) directory.
  (define (gen-web-static-member mr . dirs)
@@ -79,11 +81,12 @@
 
  ;; Generates all member files in given directory
  (define (gen-web-static mb dir)
-   (when (file-exists? dir)
+   (when (and (file-exists? dir)
+	      (regular-file? dir))
      (error 'gen-web-static "Directory is a file:" dir))
    (when (not (directory-exists? dir))
      (create-directory dir))
-   (let loop ((mb mb))
+   (let loop ((mb (members-base-members mb)))
      (when (not (null? mb))
        (gen-web-static-member (car mb) dir)
        (loop (cdr mb)))))