12/12: linux-modules: Fix module dependency loading.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 47e265af75141f6ffb557cf6c41a02a05ec82ccb
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Aug 13 02:00:00 2023 +0200

    linux-modules: Fix module dependency loading.
    
    * gnu/build/linux-modules.scm (dot-ko): Make COMPRESSION optional,
    as expected by callers RECURSIVE-MODULE-DEPENDENCIES and
    LOAD-LINUX-MODULE*.
---
 gnu/build/linux-modules.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnu/build/linux-modules.scm b/gnu/build/linux-modules.scm
index 3b1f512663..12cb9c4ba6 100644
--- a/gnu/build/linux-modules.scm
+++ b/gnu/build/linux-modules.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2014, 2016, 2018, 2019, 2022 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
 ;;; Copyright © 2018 Danny Milosavljevic <dannym@scratchpost.org>
+;;; Copyright © 2023 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -208,7 +209,7 @@ modules that can be postloaded, of the soft dependencies of 
module FILE."
         (string-take filename extension)
         filename)))
 
-(define (dot-ko name compression)
+(define* (dot-ko name #:optional compression)
   (let ((suffix (match compression
                   ('xz   ".ko.xz")
                   ('gzip ".ko.gz")