diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-06-26 16:17:42 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-06-26 16:19:53 +0200 |
| commit | 641631c1a2590acb1778ebb7b3a141beb8e7448b (patch) | |
| tree | a5da74a3a1e196bbc7f831f5c817fda12377e433 | |
| parent | 6b2e91b1fc75445d6c4b4e2de338d21aada063b9 (diff) | |
| download | guix-641631c1a2590acb1778ebb7b3a141beb8e7448b.tar.gz | |
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.
| -rw-r--r-- | guix/store.scm | 6 |
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) |