kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

derivations: Micro-optimize 'imported-modules'.

Browse Source 
This reduces run time of (package-derivation s emacs) by ~5%.

* guix/derivations.scm (search-path*): New procedure.
  (imported-modules): Use it instead of 'search-path'.
This commit is contained in:
Ludovic Courtès 2014-10-13 23:00:06 +02:00
parent 1391dcb054
commit 8601d0ddcf
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/derivations.scm
View File

@ -893,6 +893,11 @@ system, imported, and appears under FINAL-PATH in the resulting store path."
#:guile-for-build guile
#:local-build? #t)))
(define search-path*
;; A memoizing version of 'search-path' so 'imported-modules' does not end
;; up looking for the same files over and over again.
(memoize search-path))
(define* (imported-modules store modules
#:key (name "module-import")
(system (%current-system))
@ -907,7 +912,7 @@ search path."
(let ((f (string-append
(string-join (map symbol->string m) "/")
".scm")))
(cons f (search-path module-path f))))
(cons f (search-path* module-path f))))
modules)))
(imported-files store files #:name name #:system system
#:guile guile)))