Support cal-day in joined/destroyed.

src/brmember-parser.scm

@@ -96,7 +96,7 @@
 		    (kind (cadr mk)))
 	       (foldl (lambda (mr value)
 			(let* ((mspec (string-first+rest (car value)))
-			       (month (string->cal-month (car mspec)))
+			       (month (parse-cal-day/month (car mspec)))
 			       (comment (cdr mspec)))
 			  (if month
 			      (brmember-sub-prepend

src/members-fees.scm

@@ -74,7 +74,8 @@
    (let ((last-month (if (null? args)
 			 (*current-month*)
 			 (car args)))
-	 (first-month (cal-period-since (car (brmember-info mr 'member)))))
+	 (first-month (cal-ensure-month
+		       (cal-period-since (car (brmember-info mr 'member))))))
      (let loop ((cm first-month)
 		(cal '()))
        (if (cal-month>? cm last-month)

src/members-print.scm

@@ -63,7 +63,8 @@
 	 brmember-format
 	 specification
 	 cal-format
-	 util-git)
+	 util-git
+	 cal-day)
 
  ;; Returns nicely formatted table
  (define (member-info->table mr)
@@ -114,10 +115,10 @@
 					 (map
 					  (lambda (p)
 					    (list
-					     (string-append (cal-month->string
+					     (string-append (cal-day/month->string
 							     (cal-period-since p)) " "
 							    (or (cal-period-scomment p) ""))
-					     (string-append (cal-month->string
+					     (string-append (cal-day/month->string
 							     (cal-period-before p)) " "
 							    (or (cal-period-bcomment p) ""))))
 					  v))