From 92b8d1ea8b2dab6df9d76b2bf8d78e33fec197f1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 13 Nov 2012 00:40:29 +0100
Subject: [PATCH] tests: Make sure to use the bootstrap Guile.
* tests/builders.scm ("url-fetch", "gnu-build"): Pass `url-fetch'
#:guile %BOOTSTRAP-GUILE.
---
tests/builders.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/tests/builders.scm b/tests/builders.scm
index d2691c521f4..12841d56902 100644
--- a/tests/builders.scm
+++ b/tests/builders.scm
@@ -58,7 +58,8 @@ (define %bootstrap-inputs
"ftp://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz"))
(hash (nix-base32-string->bytevector
"0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6"))
- (drv-path (url-fetch %store url 'sha256 hash))
+ (drv-path (url-fetch %store url 'sha256 hash
+ #:guile %bootstrap-guile))
(out-path (derivation-path->output-path drv-path)))
(and (build-derivations %store (list drv-path))
(file-exists? out-path)
@@ -72,7 +73,8 @@ (define %bootstrap-inputs
(let* ((url "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz")
(hash (nix-base32-string->bytevector
"0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6"))
- (tarball (url-fetch %store url 'sha256 hash))
+ (tarball (url-fetch %store url 'sha256 hash
+ #:guile %bootstrap-guile))
(build (gnu-build %store "hello-2.8" tarball
%bootstrap-inputs
#:implicit-inputs? #f
--
GitLab