summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-03-29 23:22:27 +0100
committerLudovic Courtès <ludo@gnu.org>2019-03-30 11:08:39 +0100
commitd8bead6c5dcb8de3c86b4f84ee7c74d824135d16 (patch)
tree6356d63558931ea50c0c6f9374fdc32488c1961e
parentadb6462c4ce51fcdc94d3608ad6efb4adf716018 (diff)
downloadpatches-d8bead6c5dcb8de3c86b4f84ee7c74d824135d16.tar
patches-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.scm5
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))