diff options
Diffstat (limited to 'module/srfi')
| -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) |