diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index 71f30030b6..9348599193 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -96,6 +96,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 %narinfo-cache-directory ;; A local cache of narinfos, to avoid going to the network. Most of the ;; time, 'guix substitute' is called by guix-daemon as root and stores its