Synthetic commit for incomplete tag release-0-6-3

scsh/newports.scm

@@ -840,7 +840,7 @@
 
 	    (call-with-values
 	     (lambda ()
-	       (wait-for-channels read-channels write-channels (* 1000 timeout)))
+	       (wait-for-channels read-channels write-channels 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 (* 1000 timeout)))
+	       (wait-for-channels read-channels write-channels 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 (* 1000 timeout)))
+       (wait-for-channels read-channels write-channels timeout))
      ;; re-enables interrupts
      (lambda (ready-read-channels ready-write-channels)
        (append (filter (lambda (read-port)