From ebe706a1e820c52b9b067055cef1bc72abe1bc40 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 19 Dec 2024 16:22:45 +0100 Subject: system: Export ‘…-initrd-file’ and ‘…-root-file-system’. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/system.scm (operating-system-initrd-file): Fix docstring and export. (operating-system-root-file-system): Export. Reviewed-by: Maxim Cournoyer Change-Id: I5254d82ce547e8014027ed20675b8bfe5a5847c5 --- gnu/system.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'gnu/system.scm') diff --git a/gnu/system.scm b/gnu/system.scm index dfcb8fb279..252a26cac3 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -110,6 +110,7 @@ operating-system-default-label operating-system-initrd-modules operating-system-initrd + operating-system-initrd-file operating-system-users operating-system-groups operating-system-issue @@ -119,6 +120,7 @@ operating-system-locale-libcs operating-system-mapped-devices operating-system-file-systems + operating-system-root-file-system operating-system-store-file-system operating-system-user-mapped-devices operating-system-boot-mapped-devices @@ -1355,7 +1357,7 @@ we're running in the final root." (location (operating-system-location os))))))) (define (operating-system-initrd-file os) - "Return a gexp denoting the initrd file of OS." + "Return a file-like object for the initrd file of OS." (define boot-file-systems (filter file-system-needed-for-boot? (operating-system-file-systems os))) -- cgit v1.2.3