summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-06-26 16:17:42 +0200
committerLudovic Courtès <ludo@gnu.org>2020-06-26 16:19:53 +0200
commit641631c1a2590acb1778ebb7b3a141beb8e7448b (patch)
treea5da74a3a1e196bbc7f831f5c817fda12377e433 /guix
parent6b2e91b1fc75445d6c4b4e2de338d21aada063b9 (diff)
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.
Diffstat (limited to 'guix')
-rw-r--r--guix/store.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/guix/store.scm b/guix/store.scm
index 9b3879b4a7..683e125b20 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)