Add try-listen message for polling a conversation handle
This commit is contained in:
parent
128ef2d43c
commit
fe0f7c7fe0
|
@ -138,6 +138,9 @@
|
||||||
;; we wrap this event because otherwise we leak authority
|
;; we wrap this event because otherwise we leak authority
|
||||||
(wrap-evt in-ch values))
|
(wrap-evt in-ch values))
|
||||||
|
|
||||||
|
(define/public (try-listen)
|
||||||
|
(channel-try-get in-ch))
|
||||||
|
|
||||||
(define/public (listen)
|
(define/public (listen)
|
||||||
(sync (wrap-evt the-disconnected-evt
|
(sync (wrap-evt the-disconnected-evt
|
||||||
(lambda (reason)
|
(lambda (reason)
|
||||||
|
|
Loading…
Reference in New Issue