--- guix-1.5.0/gnu/packages/bootstrap.scm +++ guix-1.5.0/gnu/packages/bootstrap.scm @@ -357,8 +357,9 @@ ;;; Bootstrap packages. ;;; -(define %bootstrap-base-urls - ;; This is where the initial binaries come from. +(define %bootstrap-linux-headers-base-urls + ;; Keep linux headers as an explicit exception: text headers can still come + ;; from the historical bootstrap mirrors. '("https://ftpmirror.gnu.org/guix/bootstrap/" "https://ftp.gnu.org/gnu/guix/bootstrap" "https://alpha.gnu.org/gnu/guix/bootstrap" @@ -369,6 +370,10 @@ "http://flashner.co.il/guix/bootstrap" "http://lilypond.org/janneke/guix/")) +(define %bootstrap-base-urls + ;; All bootstrap binaries must come from the local bootstrap mirror. + '("http://127.0.0.1:38445")) + (define (bootstrap-guile-url-path system) "Return the URI for FILE." (string-append "/" system @@ -387,6 +392,10 @@ "/20210106/guile-static-stripped-2.0.14-powerpc64le-linux-gnu.tar.xz") ("riscv64-linux" "/20210725/guile-3.0.2.tar.xz") + ("x86_64-linux" + "/guile-static-stripped-2.0.9-x86_64-linux.tar.xz") + ("i686-linux" + "/guile-static-stripped-2.0.9-i686-linux.tar.xz") (_ "/20131110/guile-2.0.9.tar.xz")))) @@ -684,7 +693,7 @@ (uri (map (cute string-append <> "/i686-linux/20190815/" "linux-libre-headers-stripped-4.14.67-i686-linux.tar.xz") - %bootstrap-base-urls)) + %bootstrap-linux-headers-base-urls)) (sha256 (base32 "0sm2z9x4wk45bh6qfs94p0w1d6hsy6dqx9sw38qsqbvxwa1qzk8s"))))