dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 3f28137ad0ebe06bedc60816c6c3289e8f049b65
Author: John Darrington <[email protected]>
Date: Wed Dec 28 12:14:50 2016 +0100
installer: Fix bug where window-pipe did not return the proper exit status.
* gnu/system/installer/utils.scm (window-pipe): Return exit status of cmd.
---
gnu/system/installer/utils.scm | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index b8e257d..8623169 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -69,10 +69,11 @@
(define* (window-pipe win cmd #:rest args)
"Run CMD ARGS ... sending stdout and stderr to WIN. Returns the exit status
of CMD."
- (let* ((windowp (make-window-port win)))
- (clear win)
- (apply pipe-cmd windowp cmd args)
- (close-port windowp)))
+ (clear win)
+ (let* ((windowp (make-window-port win))
+ (result (apply pipe-cmd windowp cmd args)))
+ (close-port windowp)
+ result))
(define* (pipe-cmd ipipe cmd #:rest args)
"Run CMD ARGS ... sending stdout and stderr to IPIPE. Returns the exit
status of CMD."
