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 | |
| 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')
| -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 626b5039acc..a6a05862a5c 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 | |||
| 189 | (kernel-version | 189 | (kernel-version |
| 190 | (package-version (operating-system-kernel os))) | 190 | (package-version (operating-system-kernel os))) |
| 191 | (cirrus-module | 191 | (cirrus-module |
| 192 | (if (string< kernel-version "6.14") | 192 | (if (version>=? kernel-version "6.14") |
| 193 | "cirrus" | 193 | "cirrus-qemu" |
| 194 | "cirrus-qemu"))) | 194 | "cirrus"))) |
| 195 | (if (member cirrus-module modules) | 195 | (if (member cirrus-module modules) |
| 196 | modules | 196 | modules |
| 197 | (cons cirrus-module modules)))) | 197 | (cons cirrus-module modules)))) |