vm: Enable QEMU support in the freestanding VM image.

* gnu/system/vm.scm (system-qemu-image): Add 'initrd' field.

gnu/system/vm.scm

@@ -329,6 +329,11 @@ (define file-systems-to-keep
             (operating-system-file-systems os)))
 
   (let ((os (operating-system (inherit os)
+              ;; Use an initrd with the whole QEMU shebang.
+              (initrd (cut base-initrd <>
+                           #:virtio? #t
+                           #:qemu-networking? #t))
+
               ;; Force our own root file system.
               (file-systems (cons (file-system
                                     (mount-point "/")