Finish porting.

src/hackerbase.scm

@@ -24,7 +24,6 @@
 ;;
 
 (import (chicken repl)
-	month
 	command-line
 	mbase
 	brmember
@@ -41,7 +40,7 @@
 	util-mail
 	logging
 	progress
-	period
+	cal-period
 	util-git
 	util-dict-list)
 

src/members-print.scm

@@ -47,12 +47,12 @@
 	 (chicken format)
 	 util-dict-list
 	 brmember
-	 month
+	 cal-month
 	 util-list
 	 table
 	 listing
 	 ansi
-	 period
+	 cal-period
 	 primes
 	 mbase
 	 configuration
@@ -102,10 +102,12 @@
 					 (map
 					  (lambda (p)
 					    (list
-					     (string-append (month->string (period-since p)) " "
-							    (or (period-scomment p) ""))
-					     (string-append (month->string (period-before p)) " "
-							    (or (period-bcomment p) ""))))
+					     (string-append (cal-month->string
+							     (cal-period-since p)) " "
+							    (or (cal-period-scomment p) ""))
+					     (string-append (cal-month->string
+							     (cal-period-before p)) " "
+							    (or (cal-period-bcomment p) ""))))
 					  v))
 				   #:col-border #t)))
 			   (else
@@ -251,7 +253,7 @@
      (let loop ((rows data))
        (when (not (null? rows))
 	 (let* ((row (car rows))
-		(month (month->string (car row)))
+		(month (cal-month->string (car row)))
 		(vals (cdr row)))
 	   (print month " " (string-intersperse (map number->string vals) " "))
 	   (loop (cdr rows)))))))