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

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

This commit is contained in:
cvs-fast-export 2003-01-13 17:28:26 +00:00
parent 19afd32221
commit 2f365b2a19
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
build/initial.image
View File

Binary file not shown.

6
scsh/newports.scm
View File

@ -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)