diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-06-27 09:30:01 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-06-27 09:30:01 +0200 |
| commit | 01497dfe6c0a2ce69287d0fd0008747965a000df (patch) | |
| tree | f7f6f53baf6e81a8bce26144c550da3bf4b9df5c /gnu/build/vm.scm | |
| parent | 74c8b174e8015de753ba5cab44f76f944e6fd4ba (diff) | |
Merge branch 'master' into core-updates
Diffstat (limited to 'gnu/build/vm.scm')
| -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" |