me
/
guix
Archived
1
0
Fork 0
Code

vm: 'qemu-command' honors its argument. 

* gnu/build/vm.scm (qemu-command): Refer to SYSTEM rather than
%HOST-TYPE in the body.
master
Ludovic Courtès 2016-06-20 23:03:08 +02:00
parent 908935b512
commit b1dd6ac55d
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/build/vm.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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 Christopher Allan Webber <cwebber@dustycloud.org>
;;; Copyright © 2016 Leo Famulari <leo@famulari.name> ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
;;; ;;;
@ -55,8 +55,8 @@
(define* (qemu-command #:optional (system %host-type)) (define* (qemu-command #:optional (system %host-type))
"Return the default name of the QEMU command for SYSTEM." "Return the default name of the QEMU command for SYSTEM."
(let ((cpu (substring %host-type 0 (let ((cpu (substring system 0
(string-index %host-type #\-)))) (string-index system #\-))))
(string-append "qemu-system-" (string-append "qemu-system-"
(if (string-match "^i[3456]86$" cpu) (if (string-match "^i[3456]86$" cpu)
"i386" "i386"