Convert optional timeout argument before calling wait-for-channels.
This commit is contained in:
parent
5cb76fd27b
commit
5b001c5720
|
@ -777,7 +777,8 @@
|
|||
(define (make-select !?)
|
||||
(lambda (read-vec write-vec exception-vec . maybe-timeout)
|
||||
(let ((read-list (vector->list read-vec))
|
||||
(write-list (vector->list write-vec)))
|
||||
(write-list (vector->list write-vec))
|
||||
(timeout (:optional maybe-timeout #f)))
|
||||
|
||||
((structure-ref interrupts disable-interrupts!))
|
||||
|
||||
|
@ -839,7 +840,7 @@
|
|||
|
||||
(call-with-values
|
||||
(lambda ()
|
||||
(apply wait-for-channels read-channels write-channels maybe-timeout))
|
||||
(wait-for-channels read-channels write-channels timeout))
|
||||
;; re-enables interrupts
|
||||
(lambda (ready-read-channels ready-write-channels)
|
||||
|
||||
|
|
Loading…
Reference in New Issue