system: Export 'operating-system-default-essential-services'.

* gnu/system.scm (essential-services): Rename to...
(operating-system-default-essential-services): ... this.
(<operating-system>)[essential-services]: Adjust accordingly.
This commit is contained in:
Ludovic Courtès 2019-05-10 17:45:06 +02:00
parent 755a6027ce
commit f8885ecab6
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 2 deletions

View File

@ -72,6 +72,7 @@
operating-system-bootloader operating-system-bootloader
operating-system-services operating-system-services
operating-system-essential-services operating-system-essential-services
operating-system-default-essential-services
operating-system-user-services operating-system-user-services
operating-system-packages operating-system-packages
operating-system-host-name operating-system-host-name
@ -213,7 +214,8 @@
(essential-services operating-system-essential-services ; list of services (essential-services operating-system-essential-services ; list of services
(thunked) (thunked)
(default (essential-services this-operating-system))) (default (operating-system-default-essential-services
this-operating-system)))
(services operating-system-user-services ; list of services (services operating-system-user-services ; list of services
(default %base-services)) (default %base-services))
@ -463,7 +465,7 @@ value of the SYSTEM-SERVICE-TYPE service."
("initrd" ,initrd) ("initrd" ,initrd)
("locale" ,locale)))))) ;used by libc ("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 "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 that implement part of what's declared in OS are responsible for low-level
bookkeeping." bookkeeping."