Simple period comments display.

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)