me
/
guix
Archived
1
0
Fork 0
Code

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.
master
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 (search-patch file-name) (define (search-patch file-name)
"Search the 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) (define (search-bootstrap-binary file-name system)
"Search the bootstrap binary FILE-NAME for SYSTEM." "Search the bootstrap binary FILE-NAME for SYSTEM."
(search-path (%bootstrap-binaries-path) (with-fluids ((%file-port-name-canonicalization #f))
(string-append system "/" file-name))) (search-path (%bootstrap-binaries-path)
(string-append system "/" file-name))))
(define %distro-module-directory (define %distro-module-directory
;; Absolute path of the (gnu packages ...) module root. ;; Absolute path of the (gnu packages ...) module root.