cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Disable value history in the inferior repl

Browse source 
This might help reduce memory usage a little.
This commit is contained in:
Christopher Baines 2022-03-11 11:11:53 +00:00
parent 0e3f65062a
commit 9db755f27d
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -1079,12 +1079,15 @@ WHERE job_id = $1")
#:authenticate? #:authenticate?
fetch-with-authentication?)))))) fetch-with-authentication?))))))
(inferior-eval '(use-modules (srfi srfi-1) (inferior-eval '(use-modules (srfi srfi-1)
(ice-9 history)
(guix channels) (guix channels)
(guix grafts) (guix grafts)
(guix profiles)) (guix profiles))
inferior) inferior)
(inferior-eval '(%graft? #f) (inferior-eval '(%graft? #f)
inferior) inferior)
(inferior-eval '(disable-value-history!)
inferior)
(inferior-eval '(define channel-instance (inferior-eval '(define channel-instance
(@@ (guix channels) channel-instance)) (@@ (guix channels) channel-instance))
inferior) inferior)
@ -1249,11 +1252,15 @@ WHERE job_id = $1")
(inferior-eval '(use-modules (srfi srfi-1) (inferior-eval '(use-modules (srfi srfi-1)
(srfi srfi-34) (srfi srfi-34)
(ice-9 history)
(guix grafts) (guix grafts)
(guix derivations) (guix derivations)
(gnu tests)) (gnu tests))
inf) inf)
(inferior-eval '(disable-value-history!)
inf)
;; For G_ and P_ ;; For G_ and P_
(or (inferior-eval '(and (resolve-module '(guix i18n) #:ensure #f) (or (inferior-eval '(and (resolve-module '(guix i18n) #:ensure #f)
(use-modules (guix i18n)) (use-modules (guix i18n))