diff options
| -rw-r--r-- | nar-herder/utils.scm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/nar-herder/utils.scm b/nar-herder/utils.scm index 4261b05..8cd540b 100644 --- a/nar-herder/utils.scm +++ b/nar-herder/utils.scm @@ -657,15 +657,11 @@ If already in the worker thread, call PROC immediately." (define (readable? port) "Test if PORT is writable." - (match (select (vector port) #() #() 0) - ((#() #() #()) #f) - ((#(_) #() #()) #t))) + (= 1 (port-poll port "r" 0))) (define (writable? port) "Test if PORT is writable." - (match (select #() (vector port) #() 0) - ((#() #() #()) #f) - ((#() #(_) #()) #t))) + (= 1 (port-poll port "w" 0))) (define (make-wait-operation ready? schedule-when-ready port port-ready-fd this-procedure) (make-base-operation #f |