guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/05: machine: Remove unnecessary record self-referencing bindings.


From: guix-commits
Subject: 02/05: machine: Remove unnecessary record self-referencing bindings.
Date: Sat, 7 Dec 2019 18:47:52 -0500 (EST)

civodul pushed a commit to branch master
in repository guix.

commit a1d7920861a8d6c6774149eaf939eb2636942090
Author: Ludovic Court├Ęs <address@hidden>
Date:   Sat Dec 7 23:16:40 2019 +0100

    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.
---
 gnu/machine.scm     | 5 +----
 gnu/machine/ssh.scm | 1 -
 2 files changed, 1 insertion(+), 5 deletions(-)

diff --git a/gnu/machine.scm b/gnu/machine.scm
index b342fe2..bdd92d9 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> 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
diff --git a/gnu/machine/ssh.scm b/gnu/machine/ssh.scm
index 1b88fb4..d6ce125 100644
--- a/gnu/machine/ssh.scm
+++ b/gnu/machine/ssh.scm
@@ -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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]