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

Fix typo: remove double application of MAKE-I/O-COMPLETION-HANDLER.

This commit is contained in:
sperber 2002-11-12 13:13:02 +00:00
parent a1e9e54bbc
commit 6fc80dfb4b
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/rts/channel-io.scm
View File

@ -18,13 +18,12 @@
(cons (cons channel (car old)) (cons (cons channel (car old))
(cdr old))))))) (cdr old)))))))
(set-interrupt-handler! (enum interrupt i/o-write-completion) (set-interrupt-handler! (enum interrupt i/o-write-completion)
(make-i/o-completion-handler
(make-i/o-completion-handler (make-i/o-completion-handler
(lambda (cell channel) (lambda (cell channel)
(let ((old (cell-ref cell))) (let ((old (cell-ref cell)))
(cell-set! cell (cell-set! cell
(cons (car old) (cons (car old)
(cons channel (cdr old)))))))))) (cons channel (cdr old)))))))))
; The warning message is printed using DEBUG-MESSAGE because to try to make ; The warning message is printed using DEBUG-MESSAGE because to try to make
; sure it appears in spite of whatever problem's the I/O system is having. ; sure it appears in spite of whatever problem's the I/O system is having.