aboutsummaryrefslogtreecommitdiff
path: root/gnu/build
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-06-20 23:03:08 +0200
committerLudovic Courtès <ludo@gnu.org>2016-06-20 23:50:46 +0200
commitb1dd6ac55d567ca3a1a063efe2a003a9fee9458c (patch)
tree2bdb831bcd65f32d0394a978b45c2ddb4d92996c /gnu/build
parent908935b512c1c22839eef201ff80d0bdef093962 (diff)
downloadguix-b1dd6ac55d567ca3a1a063efe2a003a9fee9458c.tar
guix-b1dd6ac55d567ca3a1a063efe2a003a9fee9458c.tar.gz
vm: 'qemu-command' honors its argument.
* gnu/build/vm.scm (qemu-command): Refer to SYSTEM rather than %HOST-TYPE in the body.
Diffstat (limited to 'gnu/build')
-rw-r--r--gnu/build/vm.scm6
1 files changed, 3 insertions, 3 deletions
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 <ludo@gnu.org>
+;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Christopher Allan Webber <cwebber@dustycloud.org>
;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
;;;
@@ -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"