Month formatting.

brmsaptool.scm

@@ -112,22 +112,34 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Months support
 
+;; Returns true if this is a valid month representation - a list with
+;; two integer elements within the allowed range.
+(define (month-valid? m)
+  (and (list? m)
+       (car m)
+       (cdr m)
+       (cadr m)
+       (nil? (cddr m))
+       (integer? (car m))
+       (integer? (cadr m))
+       (>= (car m 1000))
+       (<= (car m 9999))
+       (>= (cadr m 1))
+       (<= (cadr m 12))))
+
 (define (string->month s)
   (list 2023 1))
 
 ;; Formats (valid) month as YYYY-MM string
 (define (month->string M)
-  (let ((y (car s))
+  (if (month-valid? M)
-	(m (cadr s)))
+      (let ((y (car s))
-    (if (or (< y 1000)
+	    (m (cadr s)))
-	    (> y 9999)
-	    (< m 1)
-	    (> m 12))
-	(error 'string->month "Invalid month" M)
 	(sprintf "~A-~A~A"
 		 y
 		 (if (< m 10) " " "")
-		 m))))
+		 m))
+      (error 'string->month "Invalid month" M)))
 
 (define (month=? m n)
   #f)