Use new cal-format for days and months.

src/Makefile

@@ -179,12 +179,13 @@ brmember-parser.o: brmember-parser.import.scm
 brmember-parser.import.scm: $(BRMEMBER-PARSER-SOURCES)
 
 MEMBERS-PRINT-SOURCES=members-print.scm util-dict-list.import.scm	\
-	brmember.import.scm cal-month.import.scm table.import.scm		\
-	listing.import.scm ansi.import.scm cal-period.import.scm		\
+	brmember.import.scm cal-month.import.scm table.import.scm	\
+	listing.import.scm ansi.import.scm cal-period.import.scm	\
 	primes.import.scm mbase.import.scm configuration.import.scm	\
 	bank-account.import.scm members-fees.import.scm			\
 	members-payments.import.scm util-list.import.scm		\
-	brmember-format.import.scm specification.import.scm
+	brmember-format.import.scm specification.import.scm		\
+	cal-format.import.scm
 
 members-print.o: members-print.import.scm
 members-print.import.scm: $(MEMBERS-PRINT-SOURCES)

src/members-print.scm

@@ -60,7 +60,8 @@
 	 members-fees
 	 members-payments
 	 brmember-format
-	 specification)
+	 specification
+	 cal-format)
 
  ;; Returns nicely formatted table
  (define (member-info->table mr)
@@ -97,7 +98,12 @@
 				   #:col-border #t)))
 			   ((credit)
 			    (list k 
-				  (table->string v
+				  (table->string
+				   (map (lambda (c)
+					  (list (car c)
+						(cal-format (cadr c))
+						(caddr c)))
+					v)
 				   #:col-border #t)))
 			   ((suspend student member)
 			    (list k