nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

system: Define 'this-operating-system'. 

* gnu/system.scm (<operating-system>): Choose 'this-operating-system' as
the 'this' identifier.
[essential-services]: Adjust accordingly.
This commit is contained in:
Ludovic Courtès 2019-03-29 23:22:27 +01:00
parent adb6462c4c
commit d8bead6c5d
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/system.scm
View File

@ -66,6 +66,7 @@
#:use-module (rnrs bytevectors) #:use-module (rnrs bytevectors)
#:export (operating-system #:export (operating-system
operating-system? operating-system?
this-operating-system
operating-system-bootloader operating-system-bootloader
operating-system-services operating-system-services
@ -152,6 +153,8 @@
(define-record-type* <operating-system> operating-system (define-record-type* <operating-system> operating-system
make-operating-system make-operating-system
operating-system? operating-system?
this-operating-system
(kernel operating-system-kernel ; package (kernel operating-system-kernel ; package
(default linux-libre)) (default linux-libre))
(kernel-arguments operating-system-user-kernel-arguments (kernel-arguments operating-system-user-kernel-arguments
@ -204,7 +207,7 @@
(essential-services operating-system-essential-services ; list of services (essential-services operating-system-essential-services ; list of services
(thunked) (thunked)
(default (essential-services this-record))) (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))