machine: Remove unnecessary record self-referencing bindings.
'this-machine' and 'this-machine-ssh-configuration' were useless given that there are no thunked fields. * gnu/machine.scm (<machine>)[this-machine]: Remove. * gnu/machine/ssh.scm (<machine-ssh-configuration>) [this-machine-ssh-configuration]: Remove.
This commit is contained in:
parent
deeaa9e199
commit
a1d7920861
|
@ -33,7 +33,6 @@
|
||||||
|
|
||||||
machine
|
machine
|
||||||
machine?
|
machine?
|
||||||
this-machine
|
|
||||||
|
|
||||||
machine-operating-system
|
machine-operating-system
|
||||||
machine-environment
|
machine-environment
|
||||||
|
@ -89,10 +88,8 @@
|
||||||
;;; Declarations for machines in a deployment.
|
;;; Declarations for machines in a deployment.
|
||||||
;;;
|
;;;
|
||||||
|
|
||||||
(define-record-type* <machine> machine
|
(define-record-type* <machine> machine make-machine
|
||||||
make-machine
|
|
||||||
machine?
|
machine?
|
||||||
this-machine
|
|
||||||
(operating-system %machine-operating-system); <operating-system>
|
(operating-system %machine-operating-system); <operating-system>
|
||||||
(environment machine-environment) ; symbol
|
(environment machine-environment) ; symbol
|
||||||
(configuration machine-configuration ; configuration object
|
(configuration machine-configuration ; configuration object
|
||||||
|
|
|
@ -74,7 +74,6 @@
|
||||||
(define-record-type* <machine-ssh-configuration> machine-ssh-configuration
|
(define-record-type* <machine-ssh-configuration> machine-ssh-configuration
|
||||||
make-machine-ssh-configuration
|
make-machine-ssh-configuration
|
||||||
machine-ssh-configuration?
|
machine-ssh-configuration?
|
||||||
this-machine-ssh-configuration
|
|
||||||
(host-name machine-ssh-configuration-host-name) ; string
|
(host-name machine-ssh-configuration-host-name) ; string
|
||||||
(system machine-ssh-configuration-system) ; string
|
(system machine-ssh-configuration-system) ; string
|
||||||
(build-locally? machine-ssh-configuration-build-locally? ; boolean
|
(build-locally? machine-ssh-configuration-build-locally? ; boolean
|
||||||
|
|
Loading…
Reference in New Issue