diff options
author | Mark H Weaver <mhw@netris.org> | 2018-10-22 03:21:40 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2018-10-24 01:14:26 -0400 |
commit | ac1fa8dba4791feb545744a89192e0d368c5f5a6 (patch) | |
tree | 39757e97194d3ad90292289d357c57584522adec /module/srfi/srfi-19.scm | |
parent | c9d903b6e4f8cc1d8382b20a2f0502c4ce8ffe0a (diff) | |
download | guile-ac1fa8dba4791feb545744a89192e0d368c5f5a6.tar.gz |
SRFI-19: time-utc->date: Support non-integer nanoseconds values.
* module/srfi/srfi-19.scm (time-utc->date): Use 'floor-remainder'
instead of 'modulo'.
Diffstat (limited to 'module/srfi/srfi-19.scm')
-rw-r--r-- | module/srfi/srfi-19.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm index 2f5f322df..5ab5d89f2 100644 --- a/module/srfi/srfi-19.scm +++ b/module/srfi/srfi-19.scm @@ -639,7 +639,7 @@ (rem (remainder int-secs (* 60 60))) (minutes (quotient rem 60)) (seconds (remainder rem 60))) - (make-date (modulo nanoseconds nano) + (make-date (floor-remainder nanoseconds nano) seconds minutes hours |