Permit extraction of current flows from a handle

presence/conversation.rkt

@@ -129,6 +129,9 @@
 			    (lambda (v)
 			      (set! names (set-remove names cname))))))
 
+    (define/public (current-flows)
+      flows)
+
     (define/public (retract! name)
       (sync (retract!-evt name)))
 

presence/test-conversation.rkt

@@ -4,6 +4,7 @@
 (require racket/port)
 (require racket/class)
 (require racket/match)
+(require racket/pretty)
 
 (require "conversation.rkt")
 (require "standard-thread.rkt")
@@ -40,6 +41,7 @@
 	(send handle assert! talk-topic)
 	(send handle assert! listen-topic)
 	(let loop ()
+	  ;;(pretty-print (send handle current-flows))
 	  (display name o)
 	  (display "@ROOM>> " o)
 	  (flush-output o)