~ruther/guix-local

83071b052a0585f7166245b7ba793436e104f8fe — Danny Milosavljevic 8 years ago 0315abe
system: vm: Use operating-system-kernel-arguments.

* gnu/system/vm.scm (system-qemu-image/shared-store-script):
Use operating-system-kernel-arguments.
1 files changed, 2 insertions(+), 5 deletions(-)

M gnu/system/vm.scm
M gnu/system/vm.scm => gnu/system/vm.scm +2 -5
@@ 490,11 490,8 @@ it is mostly useful when FULL-BOOT?  is true."
                                #:full-boot? full-boot?
                                #:disk-image-size disk-image-size)))
    (define kernel-arguments
      #~(list "--root=/dev/vda1"
              (string-append "--system=" #$os-drv)
              (string-append "--load=" #$os-drv "/boot")
              #$@(if graphic? #~() #~("console=ttyS0"))
              #+@(operating-system-user-kernel-arguments os)))
      #~(list #$@(if graphic? #~() #~("console=ttyS0"))
              #+@(operating-system-kernel-arguments os os-drv "/dev/vda1")))

    (define qemu-exec
      #~(list (string-append #$qemu "/bin/" #$(qemu-command (%current-system)))