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

View file

@ -72,6 +72,7 @@ (define-module (gnu system)
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 @@ (define-record-type* <operating-system> operating-system
(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 @@ (define* (operating-system-directory-base-entries os)
("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."