From 9776ebb2a50234c293d4c4a699b81a2ee3543367 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 21 Mar 2013 00:32:26 +0100 Subject: 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(-) (limited to 'gnu') 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 %bootstrap-binaries-path (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. -- cgit v1.2.3