Porting to new calendar modules.

src/brmember-parser.scm

@@ -38,8 +38,8 @@
 	 brmember
 	 testing
 	 util-dict-list
-	 month
-	 period
+	 cal-month
+	 cal-period
 	 util-list
 	 configuration
 	 util-string
@@ -81,7 +81,7 @@
 		    (kind (cadr mk)))
 	       (foldl (lambda (mr value)
 			(let* ((mspec (string-first+rest (car value)))
-			       (month (string->month (car mspec)))
+			       (month (string->cal-month (car mspec)))
 			       (comment (cdr mspec)))
 			  (if month
 			      (brmember-sub-prepend
@@ -95,7 +95,7 @@
       ,(lambda (mr output key value)
 	 (case key
 	   ((student suspend member)
-	    (let* ((res (period-markers->periods value))
+	    (let* ((res (period-markers->cal-periods value))
 		   (ok? (car res))
 		   (periods (cadr res))
 		   (msg (caddr res))