diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-03-18 18:26:12 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-03-18 22:35:27 +0100 |
| commit | 675e81a082b47aec7b3c2caa950953edb7c01c1e (patch) | |
| tree | 6d3d9222dcf1b4f7f0a24205f842834d5ce22106 | |
| parent | a57df67b5932c7f458d4a31a82a477634d6af1a0 (diff) | |
| download | guix-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.scm | 4 |
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))) |