From 47c1ef23b1f3038e95beda254081cb0dce63327b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 25 Apr 2020 14:37:13 +0200
Subject: Add current-datetime.

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

diff --git a/module/datetime.scm b/module/datetime.scm
index 5b9a65e5..f78b7d69 100644
--- a/module/datetime.scm
+++ b/module/datetime.scm
@@ -700,6 +700,9 @@
           month: ((@ (srfi srfi-19) date-month) d)
           day:   ((@ (srfi srfi-19) date-day) d))))
 
+(define-public (current-datetime)
+  (unix-time->datetime ((@ (guile) current-time))))
+
 
 
 
-- 
cgit v1.2.3