From 9db755f27d3266ade0f93bbecd694a9531ebad0d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 11 Mar 2022 11:11:53 +0000 Subject: [PATCH] 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))