diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-06-20 23:03:08 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-06-20 23:50:46 +0200 |
| commit | b1dd6ac55d567ca3a1a063efe2a003a9fee9458c (patch) | |
| tree | 2bdb831bcd65f32d0394a978b45c2ddb4d92996c | |
| parent | 908935b512c1c22839eef201ff80d0bdef093962 (diff) | |
| download | 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.
| -rw-r--r-- | gnu/build/vm.scm | 6 |
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" |