ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 14:16:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

vm: Shared-store script runs the native QEMU and Bash.

Browse source 
* gnu/system/vm.scm (system-qemu-image/shared-store-script): Use #+ for
QEMU and BASH.
This commit is contained in:
Ludovic Courtès 2020-05-27 23:11:14 +02:00
parent 60f759f06d
commit e768e4e97f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gnu/system/vm.scm
View file

@ -862,7 +862,8 @@ (define kernel-arguments
#+@(operating-system-kernel-arguments os "/dev/vda1"))) #+@(operating-system-kernel-arguments os "/dev/vda1")))
(define qemu-exec (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? #$@(if full-boot?
#~() #~()
#~("-kernel" #$(operating-system-kernel-file os) #~("-kernel" #$(operating-system-kernel-file os)
@ -879,7 +880,7 @@ (define builder
#~(call-with-output-file #$output #~(call-with-output-file #$output
(lambda (port) (lambda (port)
(format port "#!~a~% exec ~a \"$@\"~%" (format port "#!~a~% exec ~a \"$@\"~%"
#$(file-append bash "/bin/sh") #+(file-append bash "/bin/sh")
(string-join #$qemu-exec " ")) (string-join #$qemu-exec " "))
(chmod port #o555)))) (chmod port #o555))))