diff options
| -rw-r--r-- | module/srfi/srfi-19/util.scm | 5 |
1 files changed, 5 insertions, 0 deletions
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)) |