Browse Source
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.
version-1.0.1
Ludovic Courtès
3 years ago
No known key found for this signature in database
GPG Key ID: 90B11993D9AEBB5
1 changed files with
4 additions and
2 deletions
-
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." |
|
|
|