01/08: compile: Build gnu/{packages,tests}/* with '-O1'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit a0d419e63955c50c270e0697af3eb74ac321b108
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Jun 22 09:39:06 2020 +0200

    compile: Build gnu/{packages,tests}/* with '-O1'.
    
    * guix/build/compile.scm (optimization-options): Use '-O1' for the
    simple case.
---
 guix/build/compile.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/guix/build/compile.scm b/guix/build/compile.scm
index ea7e1d2..b86ec3b 100644
--- a/guix/build/compile.scm
+++ b/guix/build/compile.scm
@@ -100,10 +100,9 @@
 
   (cond ((or (string-contains file "gnu/packages/")
              (string-contains file "gnu/tests/"))
-         ;; Level 0 is good enough but partial evaluation helps preserve the
-         ;; "macro writer's bill of rights".
-         (override-option #:partial-eval? #t
-                          (optimizations-for-level 0)))
+         ;; Use '-O1' to have partial evaluation and primitive inlining so we
+         ;; can honor the "macro writer's bill of rights".
+         (optimizations-for-level 1))
         ((string-contains file "gnu/services/")
          ;; '-O2 -Ono-letrectify' compiles about ~20% faster than '-O2' for
          ;; large files like gnu/services/mail.scm.