aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/guix.texi1
-rw-r--r--gnu/system/vm.scm5
2 files changed, 4 insertions, 2 deletions
diff --git a/doc/guix.texi b/doc/guix.texi
index bc839ecbbb..1bbb66e9a0 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -4148,6 +4148,7 @@ This command also installs GRUB on the device specified in
@cindex virtual machine
Build a virtual machine that contain the operating system declared in
@var{file}, and return a script to run that virtual machine (VM).
+Arguments given to the script are passed as is to QEMU.
The VM shares its store with the host system.
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index efe943a7b4..12660d4abc 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -411,7 +411,7 @@ bootloader refers to: OS kernel, initrd, bootloader data, etc."
-serial stdio \
-drive file=" #$image
",if=virtio,cache=writeback,werror=report,readonly \
- -m 256\n"))
+ -m 256"))
(define* (system-qemu-image/shared-store-script os
#:key
@@ -447,7 +447,8 @@ exec " #$qemu "/bin/" #$(qemu-command (%current-system))
-initrd " #$os-drv "/initrd \
-append \"" #$(if graphic? "" "console=ttyS0 ")
"--system=" #$os-drv " --load=" #$os-drv "/boot --root=/dev/vda1\" "))
-#$(common-qemu-options image))
+#$(common-qemu-options image)
+" \"$@\"\n")
port)
(chmod port #o555))))