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

Include half-assed implementation of ADD-PENDING-CHANNEL.

This commit is contained in:
sperber 2002-09-19 07:08:16 +00:00
parent d14e638e10
commit 5b47488938
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/vm/s48-channel.scm
View File

@ -108,6 +108,10 @@
(set! *pending-channels* (delq channel *pending-channels*)) (set! *pending-channels* (delq channel *pending-channels*))
0) 0)
(define (add-pending-channel channel input?)
(set! *pending-channels* (cons channel *pending-channels*))
#t)
;---------------- ;----------------
; Events ; Events
; ;
@ -147,7 +151,7 @@
*pending-channels*) *pending-channels*)
=> (lambda (channel) => (lambda (channel)
(set! *pending-channels* (delq channel *pending-channels*)) (set! *pending-channels* (delq channel *pending-channels*))
(values (enum events io-completion-event) (values (enum events io-read-completion-event)
channel channel
0))) 0)))
(else (else