me/guix
Archived
1
0
Fork 0
Code Activity

channels: Build user channels with '-O1'.

Browse source 
This should noticeably speed up compilation for channels with many files.

* guix/channels.scm (standard-module-derivation)[build]: Define
'optimizations-for-level' and '-O1'.  Pass #:optimization-options to
'compile-files'.
This commit is contained in:
Ludovic Courtès 2021-04-12 18:33:17 +02:00
parent 4d0d6d8626
commit a514b4ab19
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
guix/channels.scm
View file

@ -597,9 +597,24 @@ to '%package-module-path'."
(string-append #$output "/share/guile/site/" (string-append #$output "/share/guile/site/"
(effective-version))) (effective-version)))
(define optimizations-for-level
;; Guile 3.0 provides this procedure but Guile 2.2 didn't.
;; Since this code may be executed by either version, we can't
;; rely on its availability.
(or (and=> (false-if-exception
(resolve-interface '(system base optimize)))
(lambda (iface)
(module-ref iface 'optimizations-for-level)))
(const '())))
(define -O1
;; Optimize for package module compilation speed.
(optimizations-for-level 1))
(let* ((subdir #$directory) (let* ((subdir #$directory)
(source (string-append #$source subdir))) (source (string-append #$source subdir)))
(compile-files source go (find-files source "\\.scm$")) (compile-files source go (find-files source "\\.scm$")
#:optimization-options (const -O1))
(mkdir-p (dirname scm)) (mkdir-p (dirname scm))
(symlink (string-append #$source subdir) scm)) (symlink (string-append #$source subdir) scm))