TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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:
Ludovic Courtès 2019-12-07 23:16:40 +01:00
parent deeaa9e199
commit a1d7920861
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/machine.scm
View File

@ -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> machine
make-machine
(define-record-type* <machine> machine make-machine
machine?
this-machine
(operating-system %machine-operating-system); <operating-system>
(environment machine-environment) ; symbol
(configuration machine-configuration ; configuration object

1
gnu/machine/ssh.scm
View File

@ -74,7 +74,6 @@
(define-record-type* <machine-ssh-configuration> 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