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.
master
Ludovic Courtès 2018-03-18 18:26:12 +01:00
parent a57df67b59
commit 675e81a082
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 1 deletions

View File

@ -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)))