From 675e81a082b47aec7b3c2caa950953edb7c01c1e Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 18 Mar 2018 18:26:12 +0100 Subject: 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 @@ (define (black-listed? module) (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))) -- cgit v1.2.3