From 6cd8bd854332301edef6eee68080881b8349d768 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 22 Oct 2022 10:03:34 +0100 Subject: Switch to using = for testing numerical equality As I think I've been abusing eq?. --- guix-build-coordinator/utils.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'guix-build-coordinator/utils.scm') diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 961e225..7eb6dfe 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -320,12 +320,12 @@ upcoming chunk." (parameterize ((current-read-waiter (lambda (port) - (when (eq? (port-poll port "r" timeout) 0) + (when (= (port-poll port "r" timeout) 0) (raise-exception (make-port-timeout-error))))) (current-write-waiter (lambda (port) - (when (eq? (port-poll port "w" timeout) 0) + (when (= (port-poll port "w" timeout) 0) (raise-exception (make-port-timeout-error)))))) (thunk))) -- cgit v1.2.3