diff --git a/build/initial.image b/build/initial.image deleted file mode 100644 index 3c61cd8..0000000 Binary files a/build/initial.image and /dev/null differ diff --git a/scsh/newports.scm b/scsh/newports.scm index a7b5c1a..68e16a2 100644 --- a/scsh/newports.scm +++ b/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)