02/07: Restore #:error-port when calling open-inferior

[Christopher Baines]

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

commit b2707b48287c99f1e409d0e06788ee2fc0354564
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Nov 5 16:12:55 2023 +0000

    Restore #:error-port when calling open-inferior
    
    As the default is a void port.
---
 guix-data-service/jobs/load-new-guix-revision.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm 
b/guix-data-service/jobs/load-new-guix-revision.scm
index 716c546..f70abc9 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -970,7 +970,8 @@
                        "SSL_CERT_DIR=" (nss-certs-store-path store))))
                (begin
                  (simple-format #t "debug: using open-inferior\n")
-                 (open-inferior (guix-store-path store))))))
+                 (open-inferior (guix-store-path store)
+                                #:error-port (current-error-port))))))
 
       (define (start-inferior-and-return-derivation-file-names)
         ;; /etc is only missing if open-inferior/container has been used
@@ -1100,7 +1101,8 @@
                                           '("/gnu/store"))
                  (begin
                    (simple-format #t "debug: using open-inferior\n")
-                   (open-inferior store-path)))))
+                   (open-inferior store-path
+                                  #:error-port (current-error-port))))))
     (inferior-eval '(use-modules (srfi srfi-1)
                                  (srfi srfi-34)
                                  (guix grafts)
@@ -1155,7 +1157,8 @@
                     (begin
                       (setenv "GUIX_LOCPATH" guix-locpath)
                       (simple-format #t "debug: using open-inferior\n")
-                      (open-inferior store-path))))))
+                      (open-inferior store-path
+                                     #:error-port (current-error-port)))))))
     (setenv "GUIX_LOCPATH" guix-locpath) ; restore GUIX_LOCPATH
 
     (when (eq? inf #f)