From 427cf67e211d824454fac44688311fcd04e5ce87 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Tue, 23 Apr 2019 17:22:33 +0200
Subject: Add time-{min,max}.

---
 module/srfi/srfi-19/util.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'module/srfi/srfi-19/util.scm')

diff --git a/module/srfi/srfi-19/util.scm b/module/srfi/srfi-19/util.scm
index e2a98c42..e4014a68 100644
--- a/module/srfi/srfi-19/util.scm
+++ b/module/srfi/srfi-19/util.scm
@@ -112,3 +112,8 @@ attribute set to 0. Can also be seen as \"Start of day\""
        (date->time-utc start-date) (date->time-utc end-date)
        time time))))
 
+(define-public (time-min a b)
+  (if (time<? a b) a b))
+
+(define-public (time-max a b)
+  (if (time<? a b) b a))
-- 
cgit v1.2.3