From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([209.51.188.92]:53135) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hPlsn-00071O-JC for guix-patches@gnu.org; Sun, 12 May 2019 06:39:06 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hPlsl-0007Vt-LW for guix-patches@gnu.org; Sun, 12 May 2019 06:39:05 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:56633) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1hPlsk-0007VK-6A for guix-patches@gnu.org; Sun, 12 May 2019 06:39:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1hPlsk-0002tA-2Q for guix-patches@gnu.org; Sun, 12 May 2019 06:39:02 -0400 Subject: [bug#35697] [PATCH 1/8] system: Export 'operating-system-default-essential-services'. References: <20190512103055.16832-1-ludo@gnu.org> In-Reply-To: <20190512103055.16832-1-ludo@gnu.org> Resent-Message-ID: From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Date: Sun, 12 May 2019 12:37:55 +0200 Message-Id: <20190512103802.17032-1-ludo@gnu.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 35697@debbugs.gnu.org Cc: Chris Marusich * gnu/system.scm (essential-services): Rename to... (operating-system-default-essential-services): ... this. ()[essential-services]: Adjust accordingly. --- gnu/system.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gnu/system.scm b/gnu/system.scm index 0489b9720d..2c4ca55ffc 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -72,6 +72,7 @@ operating-system-bootloader operating-system-services operating-system-essential-services + operating-system-default-essential-services operating-system-user-services operating-system-packages operating-system-host-name @@ -213,7 +214,8 @@ (essential-services operating-system-essential-services ; list of services (thunked) - (default (essential-services this-operating-system))) + (default (operating-system-default-essential-services + this-operating-system))) (services operating-system-user-services ; list of services (default %base-services)) @@ -463,7 +465,7 @@ value of the SYSTEM-SERVICE-TYPE service." ("initrd" ,initrd) ("locale" ,locale)))))) ;used by libc -(define* (essential-services os) +(define (operating-system-default-essential-services os) "Return the list of essential services for OS. These are special services that implement part of what's declared in OS are responsible for low-level bookkeeping." -- 2.21.0