ui: ‘load*’ takes a list of modules to import.

* guix/ui.scm (load*): Change ‘module’ to ‘imports’.  Define ‘user-module’.
* guix/scripts/build.scm (options->things-to-build): Update to new ‘load*’
calling convention.
* guix/scripts/deploy.scm (load-source-file): Likewise.
* guix/scripts/environment.scm (load-manifest)
(options/resolve-packages): Likewise.
* guix/scripts/home.scm (process-action): Likewise.
(%user-module): Rename to…
(%user-modules): … this, and change to a list of module names.
* guix/scripts/pack.scm (guix-pack): Update ‘load*’ calls.
* guix/scripts/package.scm (load-manifest, %options): Likewise.
* guix/scripts/pull.scm (channel-list): Likewise.
* guix/scripts/refresh.scm (packages-from-manifest): Likewise.
* guix/scripts/system.scm (%user-module): Rename to…
(%user-modules): … this, and change to a list of module names.
(read-operating-system): Adjust accordingly.
(process-action): Likewise.
* guix/scripts/weather.scm (load-manifest): Likewise.
* tests/gexp.scm ("local-file, relative file name, within gexp, compiled"):
Likewise.

Change-Id: Ic838e66719d89de556ac0872c3ce0c8ff6de8790
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

1 files changed, 3 insertions, 4 deletions

diff --git a/tests/gexp.scm b/tests/gexp.scm
index ddb9904fef0..bc75d479b44 100644
--- a/tests/gexp.scm
+++ b/tests/gexp.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2014-2025 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2014-2026 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2021-2022 Maxime Devos <maximedevos@telenet.be>
 ;;; Copyright © 2026 David Elsing <david.elsing@posteo.net>
 ;;;
@@ -281,11 +281,10 @@
                                 (basename file) "\" \"t.scm\"))")
                  port)))
 
-    (let* ((interned (add-to-store %store "t.scm" #f "sha256" file))
-           (module   (make-fresh-user-module)))
+    (let* ((interned (add-to-store %store "t.scm" #f "sha256" file)))
       (module-use! module (resolve-interface '(guix gexp)))
       (equal? `(this file is ,interned)
-              (gexp->sexp* (load* file module))))))
+              (gexp->sexp* (load* file '()))))))
 
 (test-assertm "local-file, #:select?"
   (mlet* %store-monad ((select? -> (lambda (file stat)