aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-03-18 18:26:12 +0100
committerLudovic Courtès <ludo@gnu.org>2018-03-18 22:35:27 +0100
commit675e81a082b47aec7b3c2caa950953edb7c01c1e (patch)
tree6d3d9222dcf1b4f7f0a24205f842834d5ce22106
parenta57df67b5932c7f458d4a31a82a477634d6af1a0 (diff)
downloadguix-675e81a082b47aec7b3c2caa950953edb7c01c1e.tar
guix-675e81a082b47aec7b3c2caa950953edb7c01c1e.tar.gz
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.
-rw-r--r--gnu/build/linux-modules.scm4
1 files changed, 3 insertions, 1 deletions
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)))