branch core-updates updated: ci: Add bootstrap packages to the core subset.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch core-updates
in repository guix.

The following commit(s) were added to refs/heads/core-updates by this push:
     new df49fe2  ci: Add bootstrap packages to the core subset.
df49fe2 is described below

commit df49fe2a13d933c640e3189413c5adfced1103c5
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Jul 9 12:07:24 2021 +0200

    ci: Add bootstrap packages to the core subset.
    
    * gnu/ci.scm (%bootstrap-packages): New variable.
    (cuirass-jobs): Add it to the core subset.
---
 gnu/ci.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/ci.scm b/gnu/ci.scm
index 4280004..19ec5fb 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -69,6 +69,7 @@
   #:export (derivation->job
             image->job
 
+            %bootstrap-packages
             %core-packages
             %cross-targets
             channel-source->package
@@ -148,6 +149,14 @@ SYSTEM."
         %guile-bootstrap-tarball
         %bootstrap-tarballs))
 
+(define %bootstrap-packages
+  ;; Return the list of bootstrap packages from the commencement module.
+  (filter package?
+          (module-map
+           (lambda (sym var)
+             (variable-ref var))
+           (resolve-module '(gnu packages commencement)))))
+
 (define (packages-to-cross-build target)
   "Return the list of packages to cross-build for TARGET."
   ;; Don't cross-build the bootstrap tarballs for MinGW.
@@ -508,7 +517,7 @@ valid."
            (map (lambda (package)
                   (package-job store (job-name package)
                                package system))
-                %core-packages)
+                (append %bootstrap-packages %core-packages))
            (cross-jobs store system)))
          ('guix
           ;; Build Guix modules only.