From 69ee05d88c3c330d63d078567b92c28f9b789f41 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sun, 23 Oct 2011 16:37:56 -0400
Subject: [PATCH] Keep hold of a room's name.

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

diff --git a/conversation.rkt b/conversation.rkt
index 51beff6..2447230 100644
--- a/conversation.rkt
+++ b/conversation.rkt
@@ -9,6 +9,7 @@
 (require "standard-thread.rkt")
 
 (provide make-room
+	 room-name
 	 join-room
 
 	 ;; Management and communication
@@ -26,7 +27,7 @@
 
 (struct credit (who amount) #:prefab) ;; give someone an amount of credit
 
-(struct room (ch))
+(struct room (name ch))
 
 (struct room-state (name ch members) #:transparent)
 (struct binding (name ;; any
@@ -42,7 +43,7 @@
 (define (make-room [name (gensym 'room)])
   (define ch (make-channel))
   (thread (lambda () (room-main (room-state name ch '()))))
-  (room ch))
+  (room name ch))
 
 (define (join-room room [name (gensym 'peer)] #:break-on-departure? [break-on-departure? #f])
   (make-object membership% (room-ch room) name break-on-departure?))