From c09d21cbcf373871fee4a4c26117b3f705a1f4f6 Mon Sep 17 00:00:00 2001 From: Alex Griffin Date: Wed, 8 Jan 2020 16:27:45 -0600 Subject: linux-initrd: Don't close over core Guile modules. * nonguix/modules.scm: New file. * nongnu/system/linux-initrd.scm: Limit 'source-module-closure' to guix and nonguix modules only. --- nongnu/system/linux-initrd.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'nongnu/system') diff --git a/nongnu/system/linux-initrd.scm b/nongnu/system/linux-initrd.scm index cb83845..460d48d 100644 --- a/nongnu/system/linux-initrd.scm +++ b/nongnu/system/linux-initrd.scm @@ -19,6 +19,7 @@ #:use-module (guix modules) #:use-module (guix utils) #:use-module (nongnu packages linux) + #:use-module (nonguix modules) #:export (microcode-initrd)) ;; See https://www.kernel.org/doc/Documentation/x86/microcode.txt @@ -45,7 +46,7 @@ MICROCODE-PACKAGES, in the format expected by the kernel." '((gnu build linux-initrd) (guix build utils) (nonguix build utils)) - #:select? (const #t)) + #:select? nonguix-module-name?) #~(begin (use-modules (gnu build linux-initrd) (guix build utils) @@ -83,7 +84,7 @@ MICROCODE-PACKAGES, in the format expected by the kernel." (with-imported-modules (source-module-closure '((guix build utils) (nonguix build utils)) - #:select? (const #t)) + #:select? nonguix-module-name?) #~(begin (use-modules (guix build utils) (nonguix build utils)) -- cgit v1.2.3