Fix period with comments usage.

member-print.scm

@@ -45,7 +45,8 @@
 	 utils
 	 table
 	 listing
-	 ansi)
+	 ansi
+	 period)
 
  ;; Prints human-readable information
  (define (print-member-info mr)
@@ -109,8 +110,8 @@
 					 (map
 					  (lambda (p)
 					    (list
-					     (month->string (car p))
-					     (month->string (cdr p))))
+					     (month->string (period-since p))
+					     (month->string (period-before p))))
 					  v))
 				   #:col-border #t)))
 			   (else

period.scm

@@ -28,6 +28,8 @@
 (module
  period
  (
+  period-since
+  period-before
   period-markers->periods
   periods-duration
   month-in-periods?