summary refs log tree commit diff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-11-24 18:12:03 +0100
committerLudovic Courtès <ludo@gnu.org>2015-11-24 18:19:25 +0100
commitcc3de1da418e1718ab4ff85144a56f573460fbd6 (patch)
tree744339ed1c37ceb6b9d5ec7873c75aa889db1d84
parent8b749cf3cb5934e6ca29f46a1c87ed1f2b83e81d (diff)
downloadguix-cc3de1da418e1718ab4ff85144a56f573460fbd6.tar.gz
guix package: Reduce startup time by ~50%.
As measured with:

  time sh -c 'for i in `seq 1 10` ; do guix package --search-paths ; done'

On my machine, when running:

  strace -o ,,s guix package --search-paths

the number returned by:

  grep -E '^(open|l?stat).*\.go' ,,s | wc -l

drops from 1610 to 837.

* guix/scripts/package.scm: Remove two unnecessary #:use-module forms.
Autoload (gnu packages ...) modules.
-rw-r--r--guix/scripts/package.scm10
1 files changed, 4 insertions, 6 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 5a059f12ae..b1bce7020c 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -32,22 +32,20 @@
   #:use-module (guix scripts)
   #:use-module (guix scripts build)
   #:use-module ((guix build utils)
-                #:select (directory-exists? mkdir-p search-path-as-list))
+                #:select (directory-exists? mkdir-p))
   #:use-module (ice-9 format)
   #:use-module (ice-9 match)
-  #:use-module (ice-9 regex)
   #:use-module (ice-9 vlist)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-11)
-  #:use-module (srfi srfi-19)
   #:use-module (srfi srfi-26)
   #:use-module (srfi srfi-34)
   #:use-module (srfi srfi-35)
   #:use-module (srfi srfi-37)
   #:use-module (gnu packages)
-  #:use-module (gnu packages base)
-  #:use-module (gnu packages guile)
-  #:use-module ((gnu packages bootstrap) #:select (%bootstrap-guile))
+  #:autoload   (gnu packages base) (canonical-package)
+  #:autoload   (gnu packages guile) (guile-2.0)
+  #:autoload   (gnu packages bootstrap) (%bootstrap-guile)
   #:export (delete-generations
             display-search-paths
             guix-package))