06/08: linux-modules: 'load-linux-module*' honors BLACK-LIST in recursive calls.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 675e81a082b47aec7b3c2caa950953edb7c01c1e
Author: Ludovic Courtès <address@hidden>
Date:   Sun Mar 18 18:26:12 2018 +0100

    linux-modules: 'load-linux-module*' honors BLACK-LIST in recursive calls.
    
    * gnu/build/linux-modules.scm (load-linux-module*): Pass BLACK-LIST in
    recursive call.
---
 gnu/build/linux-modules.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gnu/build/linux-modules.scm b/gnu/build/linux-modules.scm
index 3dd60f4..e97c9c9 100644
--- a/gnu/build/linux-modules.scm
+++ b/gnu/build/linux-modules.scm
@@ -206,7 +206,9 @@ appears in BLACK-LIST are not loaded."
 
   (define (load-dependencies file)
     (let ((dependencies (module-dependencies file)))
-      (every (cut load-linux-module* <> #:lookup-module lookup-module)
+      (every (cut load-linux-module* <>
+                  #:lookup-module lookup-module
+                  #:black-list black-list)
              (map lookup-module dependencies))))
 
   (and (not (black-listed? (file-name->module-name file)))