diff options
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/linux-initrd.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gnu/system/linux-initrd.scm b/gnu/system/linux-initrd.scm index b56e6cf5d42..6ace2985dae 100644 --- a/gnu/system/linux-initrd.scm +++ b/gnu/system/linux-initrd.scm | |||
| @@ -375,7 +375,11 @@ FILE-SYSTEMS." | |||
| 375 | (%current-system)))) | 375 | (%current-system)))) |
| 376 | "Return a list of modules tailored to KERNEL for SYSTEM to include in the | 376 | "Return a list of modules tailored to KERNEL for SYSTEM to include in the |
| 377 | initrd by default." | 377 | initrd by default." |
| 378 | (assoc-ref (assoc-ref (package-properties kernel) 'base-initrd-modules) | 378 | (define (modules package) |
| 379 | (assoc-ref (package-properties package) 'base-initrd-modules)) | ||
| 380 | |||
| 381 | (assoc-ref (or (modules kernel) | ||
| 382 | (modules linux-libre)) | ||
| 379 | system)) | 383 | system)) |
| 380 | 384 | ||
| 381 | (define* (base-initrd file-systems | 385 | (define* (base-initrd file-systems |
