SRFI-19: time-utc->date: Support non-integer nanoseconds values.

* module/srfi/srfi-19.scm (time-utc->date): Use 'floor-remainder'
instead of 'modulo'.

diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm
index 2f5f322dfcfb28f9ee3cb509839677ae71eb6b8a..5ab5d89f2a97ed1735b7f96b2437a8416684a139 100644 (file)
--- 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