futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
* 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
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
build-aux/hydra/evaluate.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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. ;;; This file is part of GNU Guix.
;;; ;;;
@ -32,6 +32,13 @@
(beautify-user-module! m) (beautify-user-module! m)
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) (define (call-with-time thunk kont)
"Call THUNK and pass KONT the elapsed time followed by THUNK's return "Call THUNK and pass KONT the elapsed time followed by THUNK's return
values." values."