02/02: build-system/gnu: Work around 'time-monotonic' bug in Guile 2.2.2.

[Ludovic Courtès]

civodul pushed a commit to branch core-updates
in repository guix.

commit 2ac6998063c311799cefb8edbc5b0158230d3877
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jun 11 22:50:43 2017 +0200

    build-system/gnu: Work around 'time-monotonic' bug in Guile 2.2.2.
    
    Fixes <http://bugs.gnu.org/27303>.
    Reported by Leo Famulari <address@hidden>.
    
    * guix/build/gnu-build-system.scm (time-monotonic) [guile-2.2]: Define.
---
 guix/build/gnu-build-system.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index 09f272e..e37b751 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -39,6 +39,13 @@
 ;;
 ;; Code:
 
+(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* (set-SOURCE-DATE-EPOCH #:rest _)
   "Set the 'SOURCE_DATE_EPOCH' environment variable.  This is used by tools
 that incorporate timestamps as a way to tell them to use a fixed timestamp.