02/04: build-self: Disable position recording.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit ec8bc4a34e99363f80b0156587892b5623709098
Author: Ludovic Courtès <address@hidden>
Date:   Tue Mar 26 11:36:33 2019 +0100

    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(-)

diff --git a/build-aux/build-self.scm b/build-aux/build-self.scm
index d18b450..a8b05eb 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)