ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-25 20:19:18 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

vm: 'qemu-command' honors its argument.

Browse source 
* gnu/build/vm.scm (qemu-command): Refer to SYSTEM rather than
%HOST-TYPE in the body.
This commit is contained in:
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-module (gnu build vm)
(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"