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

It had to happen: the first post-0.6.3 bug fix. 

The SELECT* operations take a timeout argument, specified to be in
seconds.  Instead, they took milliseconds.  Fix this.
This commit is contained in:
sperber 2003-01-13 16:52:26 +00:00
parent c695ff052a
commit 32953f94c0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scsh/newports.scm
View File

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