From b1dd6ac55d567ca3a1a063efe2a003a9fee9458c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 20 Jun 2016 23:03:08 +0200 Subject: 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(-) (limited to 'gnu/build/vm.scm') diff --git a/gnu/build/vm.scm b/gnu/build/vm.scm index 48e701adbe..cc5cf45362 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 +;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès ;;; Copyright © 2016 Christopher Allan Webber ;;; Copyright © 2016 Leo Famulari ;;; @@ -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" -- cgit v1.2.3