diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-13 03:01:10 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-13 03:01:10 +0100 |
commit | 81ca617223b1669ad197c4dd4982e345bee518ae (patch) | |
tree | 4fad5f66d1d25a77dfe2afe729277c4d9b9d1673 /module/srfi/srfi-19/util.scm | |
parent | Set custom printer for srfi-19 dates. (diff) | |
download | calp-81ca617223b1669ad197c4dd4982e345bee518ae.tar.gz calp-81ca617223b1669ad197c4dd4982e345bee518ae.tar.xz |
Use new set-> macro.
Diffstat (limited to 'module/srfi/srfi-19/util.scm')
-rw-r--r-- | module/srfi/srfi-19/util.scm | 10 |
1 files changed, 5 insertions, 5 deletions
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) |