diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-04-22 00:58:10 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-04-22 01:01:32 +0200 |
| commit | 886ac3e2abce89bd3f47f957c36bcec16613c509 (patch) | |
| tree | c55dfbedfeddafe1d43b99d3d54fffe7cbcf8faf /module/srfi/srfi-19.scm | |
| parent | f344ad631d5c76c76e5e7aa0f3e355b968ab7273 (diff) | |
| download | guile-886ac3e2abce89bd3f47f957c36bcec16613c509.tar.gz | |
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.
Diffstat (limited to 'module/srfi/srfi-19.scm')
| -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)) |