blob: 2bbb97756b73b18f63fd1c70b2ce7127d0b1554b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(define-module (src dates)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-19)
#:export (string/ISO->date
date->string/RFC3339
unix-date
newest
find-newest))
(define (string/ISO->date string)
(string->date string "~Y-~m-~d"))
(define (date->string/RFC3339 date)
(date->string date "~4"))
(define unix-date (string/ISO->date "1970-01-01"))
(define (newest a b) (if (time>? (date->time-utc a) (date->time-utc b)) a b))
(define (find-newest dates) (reduce newest unix-date dates))
|