marionette: Add support for QEMU's "quit" command.
* gnu/build/marionette.scm (marionette-control): Don't wait for the monitor prompt when the command was "quit".
This commit is contained in:
parent
d973915e48
commit
4dd53a83b5
|
@ -222,7 +222,8 @@ pcsys_monitor\")."
|
||||||
(($ <marionette> _ _ monitor)
|
(($ <marionette> _ _ monitor)
|
||||||
(display command monitor)
|
(display command monitor)
|
||||||
(newline 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
|
(define* (marionette-screen-text marionette
|
||||||
#:key
|
#:key
|
||||||
|
|
Loading…
Reference in New Issue