13/13: hydra: Clear '%load-compiled-path' for gnu-system.scm.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit f6dfb8bb082332e3e7450d09c71b32ad5f5042c7
Author: Ludovic Courtès <address@hidden>
Date:   Sun Apr 8 17:57:13 2018 +0200

    hydra: Clear '%load-compiled-path' for gnu-system.scm.
    
    On hydra.gnu.org GUILE_LOAD_COMPILED_PATH happened to be empty so we
    were fine.  However on GuixSD with Cuirass, we could have a conflicting
    non-empty path and .go files for some of the (guix …) and (gnu …)
    modules would be taken from there.
    
    * build-aux/hydra/gnu-system.scm: Set %load-compiled-path.
---
 build-aux/hydra/gnu-system.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm
index 8178871..e5326c4 100644
--- a/build-aux/hydra/gnu-system.scm
+++ b/build-aux/hydra/gnu-system.scm
@@ -32,6 +32,15 @@
   ;; Use our very own Guix modules.
   (set! %fresh-auto-compile #t)
 
+  ;; Ignore .go files except for Guile's.  This is because our checkout in the
+  ;; store has mtime set to the epoch, and thus .go files look newer, even
+  ;; though they may not correspond.  Use 'reverse' so that /gnu/store/…-guile
+  ;; comes before /run/current-system/profile.
+  (set! %load-compiled-path
+    (list
+     (dirname (dirname (search-path (reverse %load-compiled-path)
+                                    "ice-9/boot-9.go")))))
+
   (and=> (assoc-ref (current-source-location) 'filename)
          (lambda (file)
            (let ((dir (string-append (dirname file) "/../..")))