build: `hydra.scm' changes %load-path to refer to itself.

* hydra.scm: Add `eval-when' clause.

1 files changed, 10 insertions, 1 deletions

diff --git a/hydra.scm b/hydra.scm
index 8e3be16b08..65042cbe88 100644
--- 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,6 +21,15 @@
 ;;; tool.
 ;;;
 
+;; Attempt to use our very own Guix modules.
+(eval-when (compile load eval)
+  (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))