From 0b5aa854a0387d10c48488f408ffa21367ea48ac Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 27 Mar 2013 00:24:54 +0100 Subject: build: `hydra.scm' changes %load-path to refer to itself. * hydra.scm: Add `eval-when' clause. --- hydra.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'hydra.scm') 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 +;;; Copyright © 2012, 2013 Ludovic Courtès ;;; ;;; 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)) -- cgit 1.4.1 From bb90ad83b1030c283100bd618ec46423f2fd071e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 28 Mar 2013 00:14:38 +0100 Subject: build: Set `%fresh-auto-compile' in `hydra.scm'. * hydra.scm: Set `%fresh-auto-compile' to #t. --- hydra.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'hydra.scm') diff --git a/hydra.scm b/hydra.scm index 65042cbe88..8cbfecf34c 100644 --- a/hydra.scm +++ b/hydra.scm @@ -23,6 +23,12 @@ ;; 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))) -- cgit 1.4.1