From 81ca617223b1669ad197c4dd4982e345bee518ae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 13 Jan 2020 03:01:10 +0100
Subject: Use new set-> macro.

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

(limited to 'module/srfi')

diff --git a/module/srfi/srfi-19/util.scm b/module/srfi/srfi-19/util.scm
index 96862f3a..3259e3c2 100644
--- a/module/srfi/srfi-19/util.scm
+++ b/module/srfi/srfi-19/util.scm
@@ -37,11 +37,11 @@
 (define (drop-time date)
   "Returns a copy of date; with the hour, minute, second and nanosecond
 attribute set to 0. Can also be seen as \"Start of day\""
-  (set-fields date
-              ((date-hour) 0)
-              ((date-minute) 0)
-              ((date-second) 0)
-              ((date-nanosecond) 0)))
+  (set-> date
+         (date-hour 0)
+         (date-minute 0)
+         (date-second 0)
+         (date-nanosecond 0)))
 
 
 (define-public (start-of-month date)
-- 
cgit v1.2.3