summaryrefslogtreecommitdiff
path: root/guix/build/compile.scm
diff options
context:
space:
mode:
authorJakub Kądziołka <kuba@kadziolka.net>2020-07-23 21:43:06 +0200
committerJakub Kądziołka <kuba@kadziolka.net>2020-07-23 21:43:06 +0200
commitd726b954baaeff876ce9728e00920fa45f529f9a (patch)
tree4b767b7586a1082dd2691bc33c3e45ace044e6e5 /guix/build/compile.scm
parent9a74a7db8626bc139307d115f5cec2648f5273ad (diff)
parente165a2492d73d37c8b95d6970d453b9d88911ee6 (diff)
Merge branch 'master' into core-updates
Conflicts: gnu/packages/ruby.scm
Diffstat (limited to 'guix/build/compile.scm')
-rw-r--r--guix/build/compile.scm7
1 files changed, 3 insertions, 4 deletions
diff --git a/guix/build/compile.scm b/guix/build/compile.scm
index ea7e1d2d03..b86ec3b743 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.