guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

45/197: installer: Fix bug where window-pipe did not return the proper e


From: Danny Milosavljevic
Subject: 45/197: installer: Fix bug where window-pipe did not return the proper exit status.
Date: Mon, 3 Jul 2017 20:36:58 -0400 (EDT)

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit 3f28137ad0ebe06bedc60816c6c3289e8f049b65
Author: John Darrington <address@hidden>
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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]