Compute total fees.

bbstool.scm

@@ -135,15 +135,19 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    (print "Current month: " (month->string (*current-month*)))
    (newline)
    (if mr
-       (let ()
+       (let* ((mc (member-calendar mr))
+	      (fees (member-calendar->fees mc)))
 	 (print-member-table mr)
 	 (print (table->string (cons (list "" 1 2 3 4 5 6 7 8 9 10 11 12)
-				     (member-calendar->years-table (member-calendar mr)))
+				     (member-calendar->years-table mc))
 			       #:table-border #t
 			       #:row-border #t
 			       #:col-border #t
 			       #:ansi #t
-			       )))
+			       ))
+	 ;; (print fees)
+	 (print "Total fees: " (foldl + 0 fees))
+	 )
        (print-members-base-table MB))
    (newline))
   ((print-stats)