From e2721a05e7d778bdf845b7cb7a42fd9f76095b69 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 1 Dec 2017 18:31:16 +0100
Subject: [PATCH] Do not set '%fresh-auto-compile'.

* guix/scripts/offload.scm (build-machines): Comment out
'(set! %fresh-auto-compile #t)' since with Guile 2.2.3 it could lead to
an actual rebuild of everything that gets loaded from there on.  See
<https://bugs.gnu.org/29226>.
* guix/ui.scm (load*): Likewise.
---
 guix/scripts/offload.scm | 2 +-
 guix/ui.scm              | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index 6a2485a00738dfb891eba32f1ba99fca41c747ac..ebd0bf783d237ff55bf44891f567a73b9e04ca0c 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -118,7 +118,7 @@ determined."
   (catch #t
     (lambda ()
       ;; Avoid ABI incompatibility with the <build-machine> record.
-      (set! %fresh-auto-compile #t)
+      ;; (set! %fresh-auto-compile #t)
 
       (save-module-excursion
        (lambda ()
diff --git a/guix/ui.scm b/guix/ui.scm
index 13cbe3a0f74f98839006de030c3e52c76c81943b..9ed8f3752191fc736a8ca19ff7f3a88e4d8b8026 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -195,7 +195,7 @@ messages."
   (catch #t
     (lambda ()
       ;; XXX: Force a recompilation to avoid ABI issues.
-      (set! %fresh-auto-compile #t)
+      ;; (set! %fresh-auto-compile #t)
       (set! %load-should-auto-compile #t)
 
       (save-module-excursion