From 5a3626ce2e57eca6fcba773fbc49aad6a169d9e5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 13 Jan 2020 03:00:58 +0100
Subject: Set custom printer for srfi-19 dates.

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

(limited to 'module/srfi')

diff --git a/module/srfi/srfi-19/util.scm b/module/srfi/srfi-19/util.scm
index e34b9339..96862f3a 100644
--- a/module/srfi/srfi-19/util.scm
+++ b/module/srfi/srfi-19/util.scm
@@ -14,6 +14,11 @@
             add-day remove-day
             date))
 
+(set-record-type-printer!
+ (@@ (srfi srfi-19) date)
+ (lambda (r p) (display (date->string r "~Y-~m-~d ~H:~M:~S~z")
+                   p)))
+
 #;
 (define (copy-date date)
   "Returns a copy of the given date structure"
-- 
cgit v1.2.3