Browse Source

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.
wip-node-14
Ludovic Courtès 1 year ago
parent
commit
641631c1a2
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 6
      guix/store.scm

6
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)

Loading…
Cancel
Save