From fe0f7c7fe087a26ceb16951c945ef17250c6b07d Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 27 Oct 2011 15:24:12 -0400
Subject: [PATCH] Add try-listen message for polling a conversation handle

---
 conversation.rkt | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/conversation.rkt b/conversation.rkt
index 451c06c..2c06f8e 100644
--- 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)