From 6ad54067348191be981161b9a3599147efe1e7d2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 24 Mar 2020 22:51:53 +0100
Subject: Add date-{min,max}.

---
 module/datetime/util.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'module')

diff --git a/module/datetime/util.scm b/module/datetime/util.scm
index d5558aa2..c8d199c9 100644
--- a/module/datetime/util.scm
+++ b/module/datetime/util.scm
@@ -33,6 +33,12 @@
 (define-public (time-max a b)
   (if (time<? a b) b a))
 
+(define-public (date-min a b)
+  (if (date< a b) a b))
+
+(define-public (date-max a b)
+  (if (date< a b) b a))
+
 (define-public (datetime-min a b)
   (if (datetime< a b) a b))
 
-- 
cgit v1.2.3