[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: SRFI-19: Swap seconds and nanoseconds in 'current
From: |
Ludovic Courtès |
Subject: |
[Guile-commits] 01/01: SRFI-19: Swap seconds and nanoseconds in 'current-time-monotonic'. |
Date: |
Fri, 21 Apr 2017 19:07:25 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guile.
commit 886ac3e2abce89bd3f47f957c36bcec16613c509
Author: Ludovic Courtès <address@hidden>
Date: Sat Apr 22 00:58:10 2017 +0200
SRFI-19: Swap seconds and nanoseconds in 'current-time-monotonic'.
* module/srfi/srfi-19.scm (current-time-monotonic): Swap the 2nd and 3rd
arguments. Fixes a regression introduced in
commit b11e2922c36c4105797c269c7e616535b702698a.
---
module/srfi/srfi-19.scm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/module/srfi/srfi-19.scm b/module/srfi/srfi-19.scm
index c6a55a2..9cf9a2e 100644
--- a/module/srfi/srfi-19.scm
+++ b/module/srfi/srfi-19.scm
@@ -336,8 +336,8 @@
;; Guile monotonic and TAI times are the same.
(let ((tai (current-time-tai)))
(make-time time-monotonic
- (time-second tai)
- (time-nanosecond tai))))
+ (time-nanosecond tai)
+ (time-second tai))))
(define (current-time-thread)
(time-error 'current-time 'unsupported-clock-type 'time-thread))