From 00e81476577bcf81197027715b2926e107170c49 Mon Sep 17 00:00:00 2001 From: sperber Date: Tue, 14 Jan 2003 13:21:31 +0000 Subject: [PATCH] I did it again: only multiply timeout by 1000 if it's a number. --- scsh/newports.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/scsh/newports.scm b/scsh/newports.scm index a7b5c1a..2b28307 100644 --- a/scsh/newports.scm +++ b/scsh/newports.scm @@ -840,7 +840,8 @@ (call-with-values (lambda () - (wait-for-channels read-channels write-channels (* 1000 timeout))) + (wait-for-channels read-channels write-channels + (and timeout (* 1000 timeout)))) ;; re-enables interrupts (lambda (ready-read-channels ready-write-channels) (let ((ready-read-port/fds '()) @@ -920,7 +921,8 @@ (call-with-values (lambda () - (wait-for-channels read-channels write-channels (* 1000 timeout))) + (wait-for-channels read-channels write-channels + (and timeout (* 1000 timeout)))) ;; re-enables interrupts (lambda (ready-read-channels ready-write-channels) @@ -1019,7 +1021,8 @@ (call-with-values (lambda () - (wait-for-channels read-channels write-channels (* 1000 timeout))) + (wait-for-channels read-channels write-channels + (and timeout (* 1000 timeout)))) ;; re-enables interrupts (lambda (ready-read-channels ready-write-channels) (append (filter (lambda (read-port)