HCoop
/
jackhill
/
guix
/
guix.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
d973915
)
marionette: Add support for QEMU's "quit" command.
author
Chris Marusich
<cmmarusich@gmail.com>
Tue, 31 Jul 2018 05:47:43 +0000
(22:47 -0700)
committer
Chris Marusich
<cmmarusich@gmail.com>
Tue, 28 Aug 2018 07:14:25 +0000
(
00:14
-0700)
* gnu/build/marionette.scm (marionette-control): Don't wait for the
monitor prompt when the command was "quit".
gnu/build/marionette.scm
patch
|
blob
|
blame
|
history
diff --git
a/gnu/build/marionette.scm
b/gnu/build/marionette.scm
index
bb018fc
..
61284b8
100644
(file)
--- a/
gnu/build/marionette.scm
+++ b/
gnu/build/marionette.scm
@@
-222,7
+222,8
@@
pcsys_monitor\")."
(($ <marionette> _ _ monitor)
(display command monitor)
(newline monitor)
- (wait-for-monitor-prompt monitor))))
+ ;; The "quit" command terminates QEMU immediately, with no output.
+ (unless (string=? command "quit") (wait-for-monitor-prompt monitor)))))
(define* (marionette-screen-text marionette
#:key