05/05: store: Use '=' instead of 'eqv?'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 641631c1a2590acb1778ebb7b3a141beb8e7448b
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Jun 26 16:17:42 2020 +0200

    store: Use '=' instead of 'eqv?'.
    
    Fixes <https://bugs.gnu.org/42047>.
    Reported by Jan Nieuwenhuizen <janneke@gnu.org>.
    
    * guix/store.scm (open-connection): Use '=' instead of 'eqv?'.
    This works around <https://bugs.gnu.org/42060> while also being more
    accurate since the arguments are known to be integers.
---
 guix/store.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/store.scm b/guix/store.scm
index 9b3879b..683e125 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -557,10 +557,10 @@ for this connection will be pinned.  Return a server 
object."
                                           (make-bytevector 8192))))
       (write-int %worker-magic-1 port)
       (let ((r (read-int port)))
-        (and (eqv? r %worker-magic-2)
+        (and (= r %worker-magic-2)
              (let ((v (read-int port)))
-               (and (eqv? (protocol-major %protocol-version)
-                          (protocol-major v))
+               (and (= (protocol-major %protocol-version)
+                       (protocol-major v))
                     (begin
                       (write-int %protocol-version port)
                       (when (>= (protocol-minor v) 14)