From 9776ebb2a50234c293d4c4a699b81a2ee3543367 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 21 Mar 2013 00:32:26 +0100
Subject: [PATCH] gnu: Disable file name canonicalization in `search-*'.

* gnu/packages.scm (search-patch, search-bootstrap-binary): Make sure no
  canonicalization occurs.  This reduces the number of 'stat' system
  calls.
---
 gnu/packages.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/packages.scm b/gnu/packages.scm
index b639541788..821246bc38 100644
--- a/gnu/packages.scm
+++ b/gnu/packages.scm
@@ -61,12 +61,14 @@
 
 (define (search-patch file-name)
   "Search the patch FILE-NAME."
-  (search-path (%patch-path) file-name))
+  (with-fluids ((%file-port-name-canonicalization #f))
+    (search-path (%patch-path) file-name)))
 
 (define (search-bootstrap-binary file-name system)
   "Search the bootstrap binary FILE-NAME for SYSTEM."
-  (search-path (%bootstrap-binaries-path)
-               (string-append system "/" file-name)))
+  (with-fluids ((%file-port-name-canonicalization #f))
+    (search-path (%bootstrap-binaries-path)
+                 (string-append system "/" file-name))))
 
 (define %distro-module-directory
   ;; Absolute path of the (gnu packages ...) module root.