[bug#47929] [PATCH 2/5] scripts: pull: Load (gnu packages) module.

[Mathieu Othacehe]

This allows to pass a manifest to channel-with-substitutes-available this way:

(channel-with-substitutes-available
 %default-guix-channel
 "https://ci.guix.gnu.org";
 (specifications->manifest
  '("git" "emacs-minimal")))

* guix/scripts/pull.scm (channel-list): Load the (gnu packages) module when
evaluating the user channels list.
---
 guix/scripts/pull.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index 07613240a8..662239b492 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -707,7 +707,8 @@ transformations specified in OPTS (resulting from '--url', 
'--commit', or
     (string-append %sysconfdir "/guix/channels.scm"))
 
   (define (load-channels file)
-    (let ((result (load* file (make-user-module '((guix channels))))))
+    (let ((result (load* file (make-user-module '((guix channels)
+                                                  (gnu packages))))))
       (if (and (list? result) (every channel? result))
           result
           (leave (G_ "'~a' did not return a list of channels~%") file))))
-- 
2.31.1