diff --git a/gnu/machine.scm b/gnu/machine.scm index b342fe2144..bdd92d9592 100644 --- a/gnu/machine.scm +++ b/gnu/machine.scm @@ -33,7 +33,6 @@ machine machine? - this-machine machine-operating-system machine-environment @@ -89,10 +88,8 @@ ;;; Declarations for machines in a deployment. ;;; -(define-record-type* machine - make-machine +(define-record-type* machine make-machine machine? - this-machine (operating-system %machine-operating-system); (environment machine-environment) ; symbol (configuration machine-configuration ; configuration object diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm index 1b88fb44cc..d6ce1253a4 100644 --- a/gnu/machine/ssh.scm +++ b/gnu/machine/ssh.scm @@ -74,7 +74,6 @@ (define-record-type* machine-ssh-configuration make-machine-ssh-configuration machine-ssh-configuration? - this-machine-ssh-configuration (host-name machine-ssh-configuration-host-name) ; string (system machine-ssh-configuration-system) ; string (build-locally? machine-ssh-configuration-build-locally? ; boolean