07/09: channels: Build user channels with '-O1'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit a514b4ab19a628cbfa8b6d7c316ed7242018fcbf
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Apr 12 18:33:17 2021 +0200

    channels: Build user channels with '-O1'.
    
    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'.
---
 guix/channels.scm | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/guix/channels.scm b/guix/channels.scm
index b812c1b..c40fc0c 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -597,9 +597,24 @@ to '%package-module-path'."
               (string-append #$output "/share/guile/site/"
                              (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)
                    (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))
               (symlink (string-append #$source subdir) scm))