diff options
Diffstat (limited to 'guix-build-coordinator/utils.scm')
-rw-r--r-- | guix-build-coordinator/utils.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |