Work on calendar formatting.

month.scm

@@ -29,6 +29,8 @@
  month
  (
   make-month
+  month-year
+  month-month
   month-valid?
   string->month
   month->string
@@ -52,6 +54,10 @@
  (define (make-month y m)
    (list y m))
 
+ ;; Accessors
+ (define month-year car)
+ (define month-month cadr)
+
  ;; Returns true if this is a valid month representation - a list with
  ;; two integer elements within the allowed range.
  (define (month-valid? m)