Fix fees and web export.

src/mbase.scm

@@ -34,8 +34,6 @@
 
   mbase?
   
-  mbase-members
-
   find-member-by-predicate
   find-member-by-id
   find-member-by-nick

src/members-fees.scm

@@ -183,9 +183,7 @@
 
  ;; Summarizes (cons students full) counts
  (define (members-summary mb)
-   (let ((members (filter
+   (let ((members (find-members-by-predicate mb brmember-active?)))
-		   brmember-active?
-		   (mbase-members mb))))
      (foldl (lambda (acc mr)
 	      (cons (+ (car acc) (if (brmember-student? mr) 1 0))
 		    (+ (cdr acc) (if (brmember-student? mr) 0 1))))

src/members-print.scm

@@ -382,10 +382,9 @@
 			)))
 	      (sort
 	       (if destroyed?
-		   (mbase-members MB)
+		   (find-members-by-predicate MB (lambda x #t))
-		   (filter (lambda (mr)
+		   (find-members-by-predicate MB (lambda (mr)
-			     (not (brmember-destroyed? mr)))
+						   (not (brmember-destroyed? mr)))))
-			   (mbase-members MB)))
 	       brmember<?)))
 	    (balances (map (lambda (m)
 			     (list-ref m 6))

src/web-static.scm

@@ -84,7 +84,7 @@
      (error 'gen-web-static "Directory is a file:" dir))
    (when (not (directory-exists? dir))
      (create-directory dir))
-   (let* ((members-list (mbase-members mb))
+   (let* ((members-list (find-members-by-predicate mb (lambda x #t)))
 	  (mlen0 (length members-list))
 	  (mlen (if (> mlen0 0)
 		    mlen0