01/01: guix package: Reduce startup time by ~50%.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit cc3de1da418e1718ab4ff85144a56f573460fbd6
Author: Ludovic Courtès <address@hidden>
Date:   Tue Nov 24 18:12:03 2015 +0100

    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.
---
 guix/scripts/package.scm |   10 ++++------
 1 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 5a059f1..b1bce70 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))