From 641631c1a2590acb1778ebb7b3a141beb8e7448b Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 26 Jun 2020 16:17:42 +0200 Subject: store: Use '=' instead of 'eqv?'. Fixes . Reported by Jan Nieuwenhuizen . * guix/store.scm (open-connection): Use '=' instead of 'eqv?'. This works around while also being more accurate since the arguments are known to be integers. --- guix/store.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'guix/store.scm') 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 @@ (define* (open-connection #:optional (uri (%daemon-socket-uri)) (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) -- cgit v1.2.3