build: vm: Fix qemu-command procedure.

* gnu/build/vm.scm (qemu-command): When system is "armhf-linux", use "arm" as
qemu cpu prefix.
This commit is contained in:
Mathieu Othacehe 2019-12-01 16:46:00 +01:00
parent 2c5dd47cef
commit c6d130630a
No known key found for this signature in database
GPG key ID: 8354763531769CA6

View file

@ -70,9 +70,10 @@ (define* (qemu-command #:optional (system %host-type))
(let ((cpu (substring system 0
(string-index system #\-))))
(string-append "qemu-system-"
(if (string-match "^i[3456]86$" cpu)
"i386"
cpu))))
(cond
((string-match "^i[3456]86$" cpu) "i386")
((string-match "armhf" cpu) "arm")
(else cpu)))))
(define* (load-in-linux-vm builder
#:key