Update `NEWS'.

[jackhill/guix/guix.git] / hydra.scm

diff --git a/hydra.scm b/hydra.scm
index e350f28..8cbfecf 100644 (file)
--- a/hydra.scm
+++ b/hydra.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2012 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -21,12 +21,27 @@
 ;;; tool.
 ;;;
 
+;; Attempt to use our very own Guix modules.
+(eval-when (compile load eval)
+
+  ;; Ignore any available .go, and force recompilation.  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.
+  (set! %fresh-auto-compile #t)
+
+  (and=> (assoc-ref (current-source-location) 'filename)
+         (lambda (file)
+           (let ((dir (dirname file)))
+             (format (current-error-port) "prepending ~s to the load path~%"
+                     dir)
+             (set! %load-path (cons dir %load-path))))))
+
 (use-modules (guix store)
              (guix packages)
              ((guix utils) #:select (%current-system))
-             (distro)
-             (distro packages base)
-             (distro packages guile)
+             (gnu packages)
+             (gnu packages base)
+             (gnu packages guile)
              (srfi srfi-1)
              (srfi srfi-26)
              (ice-9 match))