From 96892901ca3669786a40c64877949196d32d9681 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Mon, 31 Oct 2011 08:54:39 -0400
Subject: [PATCH] Don't include invisible members in membership summary.

---
 conversation.rkt | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/conversation.rkt b/conversation.rkt
index 2c06f8e..ff6f76d 100644
--- a/conversation.rkt
+++ b/conversation.rkt
@@ -3,6 +3,7 @@
 (require racket/bool)
 (require racket/match)
 (require racket/class)
+(require racket/list)
 
 (require "functional-queue.rkt")
 (require "blocking-box.rkt")
@@ -223,8 +224,9 @@
       (broadcast (remove-binding state b) b (departed (binding-name b) why))))
 
 (define (membership-summary state)
-  (map (lambda (member) (arrived (binding-name member)))
-       (room-state-members state)))
+  (filter-map (lambda (member) (and (not (binding-invisible? member))
+				    (arrived (binding-name member))))
+	      (room-state-members state)))
 
 (define (add-binding state b)
   (struct-copy room-state state