02/07: Disable value history in the inferior repl

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 9db755f27d3266ade0f93bbecd694a9531ebad0d
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Fri Mar 11 11:11:53 2022 +0000

    Disable value history in the inferior repl
    
    This might help reduce memory usage a little.
---
 guix-data-service/jobs/load-new-guix-revision.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm 
b/guix-data-service/jobs/load-new-guix-revision.scm
index cdfe8b0..30eadc5 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -1079,12 +1079,15 @@ WHERE job_id = $1")
                                              #:authenticate?
                                              fetch-with-authentication?))))))
           (inferior-eval '(use-modules (srfi srfi-1)
+                                       (ice-9 history)
                                        (guix channels)
                                        (guix grafts)
                                        (guix profiles))
                          inferior)
           (inferior-eval '(%graft? #f)
                          inferior)
+          (inferior-eval '(disable-value-history!)
+                         inferior)
           (inferior-eval '(define channel-instance
                             (@@ (guix channels) channel-instance))
                          inferior)
@@ -1249,11 +1252,15 @@ WHERE job_id = $1")
 
     (inferior-eval '(use-modules (srfi srfi-1)
                                  (srfi srfi-34)
+                                 (ice-9 history)
                                  (guix grafts)
                                  (guix derivations)
                                  (gnu tests))
                    inf)
 
+    (inferior-eval '(disable-value-history!)
+                   inf)
+
     ;; For G_ and P_
     (or (inferior-eval '(and (resolve-module '(guix i18n) #:ensure #f)
                              (use-modules (guix i18n))