From 32953f94c07197687bc51d06067b84ab82949f8c Mon Sep 17 00:00:00 2001 From: sperber Date: Mon, 13 Jan 2003 16:52:26 +0000 Subject: [PATCH] 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. --- scsh/newports.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scsh/newports.scm b/scsh/newports.scm index 68e16a2..a7b5c1a 100644 --- a/scsh/newports.scm +++ b/scsh/newports.scm @@ -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)