~ruther/guix-local: gnu: Disable file name canonicalization in `search-*'.

9776ebb2a50234c293d4c4a699b81a2ee3543367 — Ludovic Courtès 13 years ago 712e6e6

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.

patch browse .tar.gz

1 files changed, 5 insertions(+), 3 deletions(-)

M gnu/packages.scm

M gnu/packages.scm => gnu/packages.scm +5 -3

@@ 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.