diff options
| author | Rutherther <rutherther@ditigal.xyz> | 2025-12-01 07:51:27 +0100 |
|---|---|---|
| committer | Efraim Flashner <efraim@flashner.co.il> | 2025-12-02 12:06:17 +0200 |
| commit | e12ba8c865fd73267ff081c97ddecd46351edb07 (patch) | |
| tree | bea2a2504b2ebbe1de42a34049faad7e3328b715 | |
| parent | ca0ed91b4047a3a86d0e40974771e8321858f00e (diff) | |
image: Fix bootloader-uses-grub-efi logic.
* gnu/system/image.scm (bootloader-uses-grub-efi?):
Check by symbol names, not by bounded symbols.
Change-Id: Ia50b07a160ca9c081c9e4cb5e3d6ebdabc89ad4c
Signed-off-by: Efraim Flashner <efraim@flashner.co.il>
| -rw-r--r-- | gnu/system/image.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm index e7282f584f7..cb4f67653b3 100644 --- a/gnu/system/image.scm +++ b/gnu/system/image.scm | |||
| @@ -369,11 +369,12 @@ set to the given OS." | |||
| 369 | (define (bootloader-uses-grub-efi? bootloader) | 369 | (define (bootloader-uses-grub-efi? bootloader) |
| 370 | "Return true if the bootloader-name contains grub-efi." | 370 | "Return true if the bootloader-name contains grub-efi." |
| 371 | (memq (bootloader-name bootloader) | 371 | (memq (bootloader-name bootloader) |
| 372 | (list grub-efi grub-efi32 | 372 | '(grub-efi |
| 373 | grub-efi-removable-bootloader | 373 | grub-efi32 |
| 374 | grub-efi32-removable-bootloader | 374 | grub-efi-removable-bootloader |
| 375 | grub-efi-netboot-bootloader | 375 | grub-efi32-removable-bootloader |
| 376 | grub-efi-netboot-removable-bootloader))) | 376 | grub-efi-netboot-bootloader |
| 377 | grub-efi-netboot-removable-bootloader))) | ||
| 377 | 378 | ||
| 378 | 379 | ||
| 379 | ;; | 380 | ;; |