From 675e81a082b47aec7b3c2caa950953edb7c01c1e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 18 Mar 2018 18:26:12 +0100 Subject: [PATCH] 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 3dd60f434f..e97c9c95f1 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)))