Permit extraction of join-name from a handle.

2011-10-25 14:28:50 -04:00 · 2011-10-25 14:28:50 -04:00 · 0af0e9ffa3
parent c70439595b
commit 0af0e9ffa3
1 changed files with 3 additions and 0 deletions
--- a/conversation.rkt
+++ b/conversation.rkt
@ -110,6 +110,9 @@
 			     ,out-ch ,in-ch ,disconnect-box
 			     ,(current-thread) ,(current-thread-exit-status)))

+    (define/public (reply-name)
+      name)
+
    (define/public (connected?)
      connected)