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 | |
| 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')
| -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 |