mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
vm: Shared-store script runs the native QEMU and Bash.
* gnu/system/vm.scm (system-qemu-image/shared-store-script): Use #+ for QEMU and BASH.
This commit is contained in:
parent
60f759f06d
commit
e768e4e97f
1 changed files with 3 additions and 2 deletions
|
@ -862,7 +862,8 @@ (define kernel-arguments
|
|||
#+@(operating-system-kernel-arguments os "/dev/vda1")))
|
||||
|
||||
(define qemu-exec
|
||||
#~(list (string-append #$qemu "/bin/" #$(qemu-command (%current-system)))
|
||||
#~(list #+(file-append qemu "/bin/"
|
||||
(qemu-command (or target system)))
|
||||
#$@(if full-boot?
|
||||
#~()
|
||||
#~("-kernel" #$(operating-system-kernel-file os)
|
||||
|
@ -879,7 +880,7 @@ (define builder
|
|||
#~(call-with-output-file #$output
|
||||
(lambda (port)
|
||||
(format port "#!~a~% exec ~a \"$@\"~%"
|
||||
#$(file-append bash "/bin/sh")
|
||||
#+(file-append bash "/bin/sh")
|
||||
(string-join #$qemu-exec " "))
|
||||
(chmod port #o555))))
|
||||
|
||||
|
|
Loading…
Reference in a new issue