brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use month data type for joined key.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 18:55:32 +01:00
parent cd2a08e2ec
commit 5f62bb319e
3 changed files with 36 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
month.scm
View file

@ -28,6 +28,7 @@
(module
month
(
make-month
month-valid?
string->month
month->string
@ -44,6 +45,10 @@
(chicken format)
testing)
;; Simple wrapper for creating month representation as a list.
(define (make-month y m)
(list y m))
;; Returns true if this is a valid month representation - a list with
;; two integer elements within the allowed range.
(define (month-valid? m)