Browse Source

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.
wip-grafts
Ludovic Courtès 9 years ago
parent
commit
9776ebb2a5
  1. 8
      gnu/packages.scm

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

Loading…
Cancel
Save