build: vm: Fix qemu-command procedure.

* gnu/build/vm.scm (qemu-command): When system is "armhf-linux", use "arm" as qemu cpu prefix.
2019-12-01 16:46:00 +01:00 · 2019-12-01 16:46:00 +01:00 · c6d130630a
commit c6d130630a
parent 2c5dd47cef
1 changed files with 4 additions and 3 deletions
--- 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