summaryrefslogtreecommitdiff
path: root/tests/derivations.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2012-10-25 18:03:48 +0200
committerLudovic Courtès <ludo@gnu.org>2012-10-25 18:03:48 +0200
commitb272c47433f7de3f5c16a81f4be9b3a8f899f11c (patch)
treeba1864e4cd3508e55eb481cc7406a15a3528e149 /tests/derivations.scm
parent4033bde84197bd0b6d43817d064d75d25668053d (diff)
derivations: Pass the derivation of guile-for-build to `imported-files' & co.
* guix/derivations.scm (%guile-for-build): Initialize to #f. (imported-files, imported-modules, compiled-modules): Add `guile' keyword parameter. Pass it down to `build-expression->derivation'. (build-expression->derivation)[guile-drv]: New variable. Pass it as the #:guile parameter for `imported-modules' and `compiled-modules'. * tests/derivations.scm: Set %GUILE-FOR-BUILD to the derivation of %BOOTSTRAP-GUILE.
Diffstat (limited to 'tests/derivations.scm')
-rw-r--r--tests/derivations.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/derivations.scm b/tests/derivations.scm
index a0cca9386b..0a785f1b2a 100644
--- a/tests/derivations.scm
+++ b/tests/derivations.scm
@@ -21,6 +21,8 @@
#:use-module (guix derivations)
#:use-module (guix store)
#:use-module (guix utils)
+ #:use-module ((guix packages) #:select (package-derivation))
+ #:use-module ((distro packages base) #:select (%bootstrap-guile))
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-11)
#:use-module (srfi srfi-26)
@@ -36,6 +38,11 @@
(define %store
(false-if-exception (open-connection)))
+(when %store
+ ;; By default, use %BOOTSTRAP-GUILE for the current system.
+ (let ((drv (package-derivation %store %bootstrap-guile)))
+ (%guile-for-build drv)))
+
(define (directory-contents dir)
"Return an alist representing the contents of DIR."
(define prefix-len (string-length dir))