From ec8bc4a34e99363f80b0156587892b5623709098 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Tue, 26 Mar 2019 11:36:33 +0100
Subject: build-self: Disable position recording.

'guix pull -n' goes roughly from 40s to 35s.

* build-aux/build-self.scm (build-program): Add call to 'read-disable'.
---
 build-aux/build-self.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'build-aux')

diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm
index d18b4504cf..a8b05eb0ff 100644
--- a/build-aux/build-self.scm
+++ b/build-aux/build-self.scm
@@ -313,7 +313,11 @@ interface (FFI) of Guile.")
                           (cons (string-append #$guile-gcrypt "/lib/guile/"
                                                (effective-version)
                                                "/site-ccache")
-                                %load-compiled-path)))
+                                %load-compiled-path))
+
+                        ;; Disable position recording to save time and space
+                        ;; when loading the package modules.
+                        (read-disable 'positions))
 
                       (use-modules (guix store)
                                    (guix self)
-- 
cgit v1.2.3