Support cal-day in joined/destroyed.

2023-05-21 20:22:15 +02:00 · 2023-05-21 20:22:15 +02:00 · 82a4742914
commit 82a4742914
parent 9a55a56c6a
3 changed files with 7 additions and 5 deletions
--- a/src/brmember-parser.scm
+++ b/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