Simple period comments display.

member-print.scm

@@ -110,8 +110,10 @@
 					 (map
 					  (lambda (p)
 					    (list
-					     (month->string (period-since p))
-					     (month->string (period-before p))))
+					     (string-append (month->string (period-since p)) " "
+							    (or (period-scomment p) ""))
+					     (string-append (month->string (period-before p)) " "
+							    (or (period-bcomment p) ""))))
 					  v))
 				   #:col-border #t)))
 			   (else

period.scm

@@ -30,6 +30,8 @@
  (
   period-since
   period-before
+  period-scomment
+  period-bcomment
   period-markers->periods
   periods-duration
   month-in-periods?
@@ -81,7 +83,7 @@
      (if (null? l)
 	 (list #t
 	       (if cb
-		   (reverse (cons (make-period cb #f) ps))
+		   (reverse (cons (make-period (car cb) #f (cadr cb)) ps))
 		   (reverse ps))
 	       ""
 	       -1)
@@ -99,11 +101,11 @@
 	   (if (eq? mtype rmt)
 	       (if cb
 		   (loop (cdr l)
-			 (cons (make-period cb month) ps)
+			 (cons (make-period (car cb) month (cadr cb) comment) ps)
 			 #f)
 		   (loop (cdr l)
 			 ps
-			 month))
+			 (list month comment)))
 	       (list #f
 		     (reverse ps)
 		     (sprintf "Invalid start/stop sequence marker ~A" marker)