04/07: Extract out the code for starting an inferior

[Christopher Baines]

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

commit 0f07826a200eb767842b93b99d9a99ed713345c1
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Fri Mar 11 11:22:08 2022 +0000

    Extract out the code for starting an inferior
---
 guix-data-service/jobs/load-new-guix-revision.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm 
b/guix-data-service/jobs/load-new-guix-revision.scm
index a1b0679..9814c64 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -1196,8 +1196,7 @@ WHERE job_id = $1")
 
       output)))
 
-(define (extract-information-from conn store guix-revision-id commit 
store-path)
-  (simple-format #t "debug: extract-information-from: ~A\n" store-path)
+(define (start-inferior-for-data-extration store store-path)
   (let* ((guix-locpath (getenv "GUIX_LOCPATH"))
          (inf (let ((guix-locpath
                      ;; Augment the GUIX_LOCPATH to include glibc-locales from
@@ -1270,6 +1269,12 @@ WHERE job_id = $1")
 
     (inferior-eval '(when (defined? '%graft?) (%graft? #f)) inf)
 
+    inf))
+
+(define (extract-information-from conn store guix-revision-id commit 
store-path)
+  (simple-format #t "debug: extract-information-from: ~A\n" store-path)
+
+  (let ((inf (start-inferior-for-data-extration store store-path)))
     (catch
       #t
       (lambda ()