Restore #:error-port when calling open-inferior
As the default is a void port.
This commit is contained in:
parent
1746256ef5
commit
b2707b4828
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue