01/01: build: vm: Fix qemu-command procedure.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit c6d130630a85709fc5a5488cfd6715ec13e72399
Author: Mathieu Othacehe <address@hidden>
Date:   Sun Dec 1 16:46:00 2019 +0100

    build: vm: Fix qemu-command procedure.
    
    * gnu/build/vm.scm (qemu-command): When system is "armhf-linux", use "arm" 
as
    qemu cpu prefix.
---
 gnu/build/vm.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm
index 6f920ae..89d685b 100644
--- a/gnu/build/vm.scm
+++ b/gnu/build/vm.scm
@@ -70,9 +70,10 @@
   (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