04/06: pull: Autoload (gnu ...) modules.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 0ba4f0caa4148c0e1080218ffcbd32127f41887f
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Jun 28 23:34:36 2021 +0200

    pull: Autoload (gnu ...) modules.
    
    This reduces startup time for 'guix pull --help' and similar.
    
    * guix/scripts/pull.scm: Autoload (gnu ...) modules.
---
 guix/scripts/pull.scm | 16 +++++++---------
 1 file changed, 7 insertions(+), 9 deletions(-)

diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index 0761324..c880a5b 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015, 2017, 2018, 2019, 2020 Ludovic Courtès 
<ludo@gnu.org>
+;;; Copyright © 2013, 2014, 2015, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès 
<ludo@gnu.org>
 ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
 ;;; Copyright © 2020, 2021 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;;
@@ -44,14 +44,12 @@
                 #:select (with-file-lock/no-wait))
   #:use-module (guix git)
   #:use-module (git)
-  #:use-module (gnu packages)
-  #:use-module ((guix scripts package) #:select (build-and-use-profile
-                                                 delete-matching-generations))
-  #:use-module ((gnu packages base) #:select (canonical-package))
-  #:use-module (gnu packages guile)
-  #:use-module ((gnu packages bootstrap)
-                #:select (%bootstrap-guile))
-  #:use-module ((gnu packages certs) #:select (le-certs))
+  #:autoload   (gnu packages) (fold-available-packages)
+  #:autoload   (guix scripts package) (build-and-use-profile
+                                       delete-matching-generations)
+  #:autoload   (gnu packages base) (canonical-package)
+  #:autoload   (gnu packages bootstrap) (%bootstrap-guile)
+  #:autoload   (gnu packages certs) (le-certs)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
   #:use-module (srfi srfi-26)