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

utils: Memoize 'absolute-dirname'.

Browse source 
* guix/utils.scm (absolute-dirname): Wrap in 'mlambda'.
This commit is contained in:
Ludovic Courtès 2017-06-26 17:48:28 +02:00
parent 0b1be8fd57
commit 87b711d200
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
guix/utils.scm
View file

@ -731,17 +731,19 @@ (define (read! bv start n)
;;; Source location.
;;;
(define (absolute-dirname file)
"Return the absolute name of the directory containing FILE, or #f upon
(define absolute-dirname
;; Memoize to avoid repeated 'stat' storms from 'search-path'.
(mlambda (file)
"Return the absolute name of the directory containing FILE, or #f upon
failure."
(match (search-path %load-path file)
(#f #f)
((? string? file)
;; If there are relative names in %LOAD-PATH, FILE can be relative and
;; needs to be canonicalized.
(if (string-prefix? "/" file)
(dirname file)
(canonicalize-path (dirname file))))))
(match (search-path %load-path file)
(#f #f)
((? string? file)
;; If there are relative names in %LOAD-PATH, FILE can be relative and
;; needs to be canonicalized.
(if (string-prefix? "/" file)
(dirname file)
(canonicalize-path (dirname file)))))))
(define-syntax current-source-directory
(lambda (s)