From b0e01d9549f389ef43190a966eee5d4615434188 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 May 2019 18:10:12 +0200
Subject: Update server.

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

(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 29f5450f..2e969f6e 100644
--- a/module/srfi/srfi-19/util.scm
+++ b/module/srfi/srfi-19/util.scm
@@ -11,7 +11,8 @@
             ;; time-add
             make-duration
             time->string
-            add-day remove-day))
+            add-day remove-day
+            date))
 
 #;
 (define (copy-date date)
@@ -129,3 +130,6 @@ attribute set to 0. Can also be seen as \"Start of day\""
 ;; TODO actually allow many form date form.
 (define-public (parse-freeform-date str)
   (string->date str "~Y-~m-~d"))
+
+(define* (date #:key (year 0) (month 0) (day 0) (hour 0) (minute 0) (second 0) (nsecs 0) (zone 0))
+  (make-date nsecs second minute hour day month year zone))
-- 
cgit v1.2.3