Add try-listen message for polling a conversation handle

2011-10-27 15:24:12 -04:00 · 2011-10-27 15:24:12 -04:00 · fe0f7c7fe0
parent 128ef2d43c
commit fe0f7c7fe0
1 changed files with 3 additions and 0 deletions
--- a/conversation.rkt
+++ b/conversation.rkt
@ -138,6 +138,9 @@
      ;; we wrap this event because otherwise we leak authority
      (wrap-evt in-ch values))

+    (define/public (try-listen)
+      (channel-try-get in-ch))
+
    (define/public (listen)
      (sync (wrap-evt the-disconnected-evt
 		      (lambda (reason)