From 886ac3e2abce89bd3f47f957c36bcec16613c509 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 22 Apr 2017 00:58:10 +0200 Subject: [PATCH] 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 c6a55a253..9cf9a2eb5 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))