mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

SRFI-19: Swap seconds and nanoseconds in 'current-time-monotonic'.

Browse source 
* module/srfi/srfi-19.scm (current-time-monotonic): Swap the 2nd and 3rd
arguments.  Fixes a regression introduced in
commit b11e2922c3.
This commit is contained in:
Ludovic Courtès 2017-04-22 00:58:10 +02:00
parent f344ad631d
commit 886ac3e2ab
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/srfi/srfi-19.scm
View file

@ -336,8 +336,8 @@
;; Guile monotonic and TAI times are the same. ;; Guile monotonic and TAI times are the same.
(let ((tai (current-time-tai))) (let ((tai (current-time-tai)))
(make-time time-monotonic (make-time time-monotonic
(time-second tai) (time-nanosecond tai)
(time-nanosecond tai)))) (time-second tai))))
(define (current-time-thread) (define (current-time-thread)
(time-error 'current-time 'unsupported-clock-type 'time-thread)) (time-error 'current-time 'unsupported-clock-type 'time-thread))