scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Convert optional timeout argument before calling wait-for-channels.

This commit is contained in:
mainzelm 2002-09-17 21:24:04 +00:00
parent 5cb76fd27b
commit 5b001c5720
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/newports.scm
View File

@ -777,7 +777,8 @@
(define (make-select !?) (define (make-select !?)
(lambda (read-vec write-vec exception-vec . maybe-timeout) (lambda (read-vec write-vec exception-vec . maybe-timeout)
(let ((read-list (vector->list read-vec)) (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!)) ((structure-ref interrupts disable-interrupts!))
@ -839,7 +840,7 @@
(call-with-values (call-with-values
(lambda () (lambda ()
(apply wait-for-channels read-channels write-channels maybe-timeout)) (wait-for-channels read-channels write-channels timeout))
;; re-enables interrupts ;; re-enables interrupts
(lambda (ready-read-channels ready-write-channels) (lambda (ready-read-channels ready-write-channels)