aboutsummaryrefslogtreecommitdiff
path: root/gnu/machine.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/machine.scm')
-rw-r--r--gnu/machine.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/gnu/machine.scm b/gnu/machine.scm
index 05b03b21d4..bdd92d9592 100644
--- a/gnu/machine.scm
+++ b/gnu/machine.scm
@@ -33,7 +33,6 @@
machine
machine?
- this-machine
machine-operating-system
machine-environment
@@ -89,15 +88,18 @@
;;; Declarations for machines in a deployment.
;;;
-(define-record-type* <machine> machine
- make-machine
+(define-record-type* <machine> machine make-machine
machine?
- this-machine
- (operating-system machine-operating-system) ; <operating-system>
+ (operating-system %machine-operating-system); <operating-system>
(environment machine-environment) ; symbol
(configuration machine-configuration ; configuration object
(default #f))) ; specific to environment
+(define (machine-operating-system machine)
+ "Return the operating system of MACHINE."
+ (operating-system-with-provenance
+ (%machine-operating-system machine)))
+
(define (machine-display-name machine)
"Return the host-name identifying MACHINE."
(operating-system-host-name (machine-operating-system machine)))