mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

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

Browse source 
* module/srfi/srfi-19.scm (time-utc->date): Use 'floor-remainder'
instead of 'modulo'.
This commit is contained in:
Mark H Weaver 2018-10-22 03:21:40 -04:00
parent c9d903b6e4
commit ac1fa8dba4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/srfi/srfi-19.scm
View file

@ -639,7 +639,7 @@
(rem (remainder int-secs (* 60 60))) (rem (remainder int-secs (* 60 60)))
(minutes (quotient rem 60)) (minutes (quotient rem 60))
(seconds (remainder rem 60))) (seconds (remainder rem 60)))
(make-date (modulo nanoseconds nano) (make-date (floor-remainder nanoseconds nano)
seconds seconds
minutes minutes
hours hours