guile-commits
[Top][All Lists]
Advanced

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]