From 7af0d64677ebca8ac620bbcea15ec998544a75ab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 8 Jul 2025 17:33:53 +0200
Subject: [PATCH] =?UTF-8?q?pack:=20Autoload=20all=20the=20(gnu=20packages?=
 =?UTF-8?q?=20=E2=80=A6)=20modules.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes guix/guix#640.

* guix/scripts/pack.scm <top-level>: Autoload (gnu packages …) modules.
(bootstrap-xz): Turn into a thunk and update user.
(gcrypt-sqlite3&co): Move to…
(store-database): … here.

Reported-by: Luca Cirrottola <luca.cirrottola@inria.fr>
Change-Id: I345a872a7c2a94ad148052fef3b2b674cc94c9d0
---
 guix/scripts/pack.scm | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm
index b7897227bc..257c24e9d3 100644
--- a/guix/scripts/pack.scm
+++ b/guix/scripts/pack.scm
@@ -55,10 +55,12 @@
   #:use-module ((guix docker) #:select (%docker-image-max-layers))
   #:use-module (gnu compression)
   #:use-module (gnu packages)
-  #:use-module (gnu packages bootstrap)
-  #:use-module ((gnu packages compression) #:hide (zip))
-  #:use-module (gnu packages guile)
-  #:use-module (gnu packages base)
+  #:autoload   (gnu packages bootstrap) (%bootstrap-coreutils&co
+                                         %bootstrap-inputs
+                                         %bootstrap-guile)
+  #:autoload   (gnu packages compression) (gzip squashfs-tools)
+  #:autoload   (gnu packages guile) (guile-json-3 guile-sqlite3)
+  #:autoload   (gnu packages base) (binutils tar libc-utf8-locales-for-target)
   #:autoload   (gnu packages appimage) (appimage-type2-runtime)
   #:autoload   (gnu packages gnupg) (guile-gcrypt)
   #:autoload   (gnu packages guile) (guile2.0-json guile-json)
@@ -90,7 +92,7 @@
 ;;; Code:
 
 ;; This one is only for use in this module, so don't put it in %compressors.
-(define bootstrap-xz
+(define (bootstrap-xz)
   (compressor "bootstrap-xz" ".xz"
               #~(append (list #+(file-append %bootstrap-coreutils&co "/bin/xz")
                               "-e")
@@ -104,15 +106,6 @@
     (('gnu _ ...) #t)
     (_ #f)))
 
-(define gcrypt-sqlite3&co
-  ;; Guile-Gcrypt, Guile-SQLite3, and their propagated inputs.
-  (append-map (lambda (package)
-                (cons package
-                      (match (package-transitive-propagated-inputs package)
-                        (((labels packages) ...)
-                         packages))))
-              (list guile-gcrypt guile-sqlite3)))
-
 (define (store-database items)
   "Return a directory containing a store database where all of ITEMS and their
 dependencies are registered."
@@ -126,6 +119,15 @@ dependencies are registered."
            (string-append "closure" (number->string n)))
          (iota (length items))))
 
+  (define gcrypt-sqlite3&co
+    ;; Guile-Gcrypt, Guile-SQLite3, and their propagated inputs.
+    (append-map (lambda (package)
+                  (cons package
+                        (match (package-transitive-propagated-inputs package)
+                          (((labels packages) ...)
+                           packages))))
+                (list guile-gcrypt guile-sqlite3)))
+
   (define build
     (with-extensions gcrypt-sqlite3&co
       (with-imported-modules `(((guix config) => ,(make-config.scm))
@@ -1828,7 +1830,7 @@ Create a bundle of PACKAGE.\n"))
                    (target      (assoc-ref opts 'target))
                    (bootstrap?  (assoc-ref opts 'bootstrap?))
                    (compressor  (if bootstrap?
-                                    bootstrap-xz
+                                    (bootstrap-xz)
                                     (assoc-ref opts 'compressor)))
                    (archiver    (if (equal? pack-format 'squashfs)
                                     squashfs-tools