03/03: system: Define 'this-operating-system'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit d8bead6c5dcb8de3c86b4f84ee7c74d824135d16
Author: Ludovic Courtès <address@hidden>
Date:   Fri Mar 29 23:22:27 2019 +0100

    system: Define 'this-operating-system'.
    
    * gnu/system.scm (<operating-system>): Choose 'this-operating-system' as
    the 'this' identifier.
    [essential-services]: Adjust accordingly.
---
 gnu/system.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnu/system.scm b/gnu/system.scm
index 9887d72..ad0c9e5 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))