diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-06-22 09:39:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-06-22 15:42:55 +0200 |
| commit | a0d419e63955c50c270e0697af3eb74ac321b108 (patch) | |
| tree | ce2c159d9546e1d86192423c8bc31512a30b7389 | |
| parent | a0dccc71a66ca6614935fa857753ec881e98bffe (diff) | |
| download | guix-a0d419e63955c50c270e0697af3eb74ac321b108.tar.gz | |
compile: Build gnu/{packages,tests}/* with '-O1'.
* guix/build/compile.scm (optimization-options): Use '-O1' for the simple case.
| -rw-r--r-- | guix/build/compile.scm | 7 |
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. |