ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Disable file name canonicalization in `search-*'.

Browse source 
* gnu/packages.scm (search-patch, search-bootstrap-binary): Make sure no
  canonicalization occurs.  This reduces the number of 'stat' system
  calls.
This commit is contained in:
Ludovic Courtès 2013-03-21 00:32:26 +01:00
parent 712e6e684c
commit 9776ebb2a5
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/packages.scm
View file

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