summaryrefslogtreecommitdiff
path: root/module/srfi/srfi-19.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/srfi/srfi-19.scm')
-rw-r--r--module/srfi/srfi-19.scm2
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