diff options
author | Ludovic Courtès <ludo@gnu.org> | 2019-03-29 23:22:27 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2019-03-30 11:08:39 +0100 |
commit | d8bead6c5dcb8de3c86b4f84ee7c74d824135d16 (patch) | |
tree | 6356d63558931ea50c0c6f9374fdc32488c1961e | |
parent | adb6462c4ce51fcdc94d3608ad6efb4adf716018 (diff) | |
download | guix-d8bead6c5dcb8de3c86b4f84ee7c74d824135d16.tar.gz |
system: Define 'this-operating-system'.
* gnu/system.scm (<operating-system>): Choose 'this-operating-system' as the 'this' identifier. [essential-services]: Adjust accordingly.
-rw-r--r-- | gnu/system.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/system.scm b/gnu/system.scm index 9887d72c41..ad0c9e57dc 100644 --- a/gnu/system.scm +++ b/gnu/system.scm @@ -66,6 +66,7 @@ #:use-module (rnrs bytevectors) #:export (operating-system operating-system? + this-operating-system operating-system-bootloader operating-system-services @@ -152,6 +153,8 @@ (define-record-type* <operating-system> operating-system make-operating-system operating-system? + this-operating-system + (kernel operating-system-kernel ; package (default linux-libre)) (kernel-arguments operating-system-user-kernel-arguments @@ -204,7 +207,7 @@ (essential-services operating-system-essential-services ; list of services (thunked) - (default (essential-services this-record))) + (default (essential-services this-operating-system))) (services operating-system-user-services ; list of services (default %base-services)) |