diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-10-22 10:03:34 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-10-22 10:03:34 +0100 |
| commit | 6cd8bd854332301edef6eee68080881b8349d768 (patch) | |
| tree | e9f486fa7af1f259cfb9105f0ccfd42da007e5b8 /guix-build-coordinator/utils.scm | |
| parent | 64d14ab709fe02bb7bcfebbfe4304af781811b43 (diff) | |
| download | build-coordinator-6cd8bd854332301edef6eee68080881b8349d768.tar build-coordinator-6cd8bd854332301edef6eee68080881b8349d768.tar.gz | |
Switch to using = for testing numerical equality
As I think I've been abusing eq?.
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))) |