diff options
-rw-r--r-- | module/srfi/srfi-19.scm | 4 |
1 files 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)) |