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

I did it again: 

only multiply timeout by 1000 if it's a number.
This commit is contained in:
sperber 2003-01-14 13:21:31 +00:00
parent 19afd32221
commit 00e8147657
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scsh/newports.scm
View File

@ -840,7 +840,8 @@
(call-with-values (call-with-values
(lambda () (lambda ()
(wait-for-channels read-channels write-channels (* 1000 timeout))) (wait-for-channels read-channels write-channels
(and timeout (* 1000 timeout))))
;; re-enables interrupts ;; re-enables interrupts
(lambda (ready-read-channels ready-write-channels) (lambda (ready-read-channels ready-write-channels)
(let ((ready-read-port/fds '()) (let ((ready-read-port/fds '())
@ -920,7 +921,8 @@
(call-with-values (call-with-values
(lambda () (lambda ()
(wait-for-channels read-channels write-channels (* 1000 timeout))) (wait-for-channels read-channels write-channels
(and timeout (* 1000 timeout))))
;; re-enables interrupts ;; re-enables interrupts
(lambda (ready-read-channels ready-write-channels) (lambda (ready-read-channels ready-write-channels)
@ -1019,7 +1021,8 @@
(call-with-values (call-with-values
(lambda () (lambda ()
(wait-for-channels read-channels write-channels (* 1000 timeout))) (wait-for-channels read-channels write-channels
(and timeout (* 1000 timeout))))
;; re-enables interrupts ;; re-enables interrupts
(lambda (ready-read-channels ready-write-channels) (lambda (ready-read-channels ready-write-channels)
(append (filter (lambda (read-port) (append (filter (lambda (read-port)