maint: Add 'time-monotonic' bug workaround in build-aux/hydra/evaluate.scm.

* build-aux/hydra/evaluate.scm: Add 'time-monotonic' workaround for
Guile 2.2.
This commit is contained in:
Ludovic Courtès 2017-05-06 23:27:33 +02:00
parent 94fa8d7616
commit 7f4da8ff6b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016, 2017 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@ -32,6 +32,13 @@ (define %user-module
(beautify-user-module! m)
m))
(cond-expand
(guile-2.2
;; Guile 2.2.2 has a bug whereby 'time-monotonic' objects have seconds and
;; nanoseconds swapped (fixed in Guile commit 886ac3e). Work around it.
(define time-monotonic time-tai))
(else #t))
(define (call-with-time thunk kont)
"Call THUNK and pass KONT the elapsed time followed by THUNK's return
values."