diff options
| author | Hilton Chain <hako@ultrarare.space> | 2026-04-17 16:47:08 +0800 |
|---|---|---|
| committer | Hilton Chain <hako@ultrarare.space> | 2026-05-16 19:43:55 +0800 |
| commit | fa39bf58a76fd27bbb0bb0a010c4cd61abf80027 (patch) | |
| tree | 40a4c11be3f9f782138ab3d3ce5f8596a7f136f3 /gnu/system | |
| parent | 412c748ff5a2c6af137783aa86ef09129404a534 (diff) | |
system: virtualized-operating-system: Fix version comparison.
(string< "6.6" "6.14") => #f
* gnu/system/vm.scm (virtualized-operating-system): Use version>=? instead of
string< to compare version.
Merges: #7959
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/vm.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm index 626b5039ac..a6a05862a5 100644 --- a/gnu/system/vm.scm +++ b/gnu/system/vm.scm @@ -189,9 +189,9 @@ environment with the store shared with the host. MAPPINGS is a list of (kernel-version (package-version (operating-system-kernel os))) (cirrus-module - (if (string< kernel-version "6.14") - "cirrus" - "cirrus-qemu"))) + (if (version>=? kernel-version "6.14") + "cirrus-qemu" + "cirrus"))) (if (member cirrus-module modules) modules (cons cirrus-module modules)))) |