02/08: vm: 'qemu-command' honors its argument.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit b1dd6ac55d567ca3a1a063efe2a003a9fee9458c
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jun 20 23:03:08 2016 +0200

    vm: 'qemu-command' honors its argument.
    
    * gnu/build/vm.scm (qemu-command): Refer to SYSTEM rather than
    %HOST-TYPE in the body.
---
 gnu/build/vm.scm |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm
index 48e701a..cc5cf45 100644
--- a/gnu/build/vm.scm
+++ b/gnu/build/vm.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013, 2014, 2015 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <address@hidden>
 ;;; Copyright © 2016 Christopher Allan Webber <address@hidden>
 ;;; Copyright © 2016 Leo Famulari <address@hidden>
 ;;;
@@ -55,8 +55,8 @@
 
 (define* (qemu-command #:optional (system %host-type))
   "Return the default name of the QEMU command for SYSTEM."
-  (let ((cpu (substring %host-type 0
-                        (string-index %host-type #\-))))
+  (let ((cpu (substring system 0
+                        (string-index system #\-))))
     (string-append "qemu-system-"
                    (if (string-match "^i[3456]86$" cpu)
                        "i386"