diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2024-04-16 19:02:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-04-17 12:13:01 +0200 |
| commit | d33965908dc8e21e9c9834ce1061cdcc664295ab (patch) | |
| tree | 6323f6d583a89c22693d4429f3f7ef7cdd0a5300 | |
| parent | b47ae1ecc43baaf726701ab2d2f810ecfaa75428 (diff) | |
| download | guix-d33965908dc8e21e9c9834ce1061cdcc664295ab.tar guix-d33965908dc8e21e9c9834ce1061cdcc664295ab.tar.gz | |
vm: Always use a native emulator in ‘guix system vm’.
Suggested by Zheng Junjie <zhengjunjie@iscas.ac.cn>.
* gnu/system/vm.scm (system-qemu-image/shared-store-script)[qemu-exec]:
Wrap first element in ‘with-parameters’.
Change-Id: Iab9905aaa7e80bad0372c1ee7c3ea88a89564f8f
| -rw-r--r-- | gnu/system/vm.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index 7d9d07ebb7..a2743453e7 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -287,8 +287,11 @@ useful when FULL-BOOT? is true." #~(format #f "/tmp/guix-image-~a" (basename #$base-image))) (define qemu-exec - #~(list #+(file-append qemu "/bin/" - (qemu-command (or target system))) + #~(list #+(with-parameters ((%current-system %system) + (%current-target-system #f)) + ;; Override %CURRENT-SYSTEM to always use a native emulator. + (file-append qemu "/bin/" + (qemu-command (or target system)))) ;; Tells qemu to use the terminal it was started in for IO. #$@(if graphic? '() #~("-nographic")) #$@(if full-boot? |