From cbee955901b3e252ebdeb8066a2196055149198a Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludovic.courtes@inria.fr>
Date: Thu, 15 Jun 2017 21:58:17 +0200
Subject: ui: Remove the empty string from '%load-extensions'.

* guix/ui.scm (run-guix): Set %LOAD-EXTENSIONS.
---
 guix/ui.scm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/guix/ui.scm b/guix/ui.scm
index b8cfc651a2..56fcc00300 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -1326,6 +1326,10 @@ (define (run-guix . args)
 and signal handling has already been set up."
   (define option? (cut string-prefix? "-" <>))
 
+  ;; The default %LOAD-EXTENSIONS includes the empty string, which doubles the
+  ;; number of 'stat' calls per entry in %LOAD-PATH.  Shamelessly remove it.
+  (set! %load-extensions '(".scm"))
+
   (match args
     (()
      (format (current-error-port)
-- 
cgit v1.2.3