From 83cae7075eaf50d6525e204f1bc9b4a56d19f823 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Sat, 23 Jun 2012 07:54:05 -0400
Subject: [PATCH] Note re presence glitch problem. See also journal entry.

---
 os2-tcp.rkt | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/os2-tcp.rkt b/os2-tcp.rkt
index 17a05e3..ad193b1 100644
--- a/os2-tcp.rkt
+++ b/os2-tcp.rkt
@@ -132,6 +132,10 @@
 	     (topic-publisher (tcp-channel any-remote local-addr (wild)) #:virtual? #t))
       #:state state
       #:topic t
+      ;; Hey, what if the presence we need went away between our
+      ;; manager spawning us, and us getting to this point? Presence
+      ;; being "edge-" rather than "level-triggered" means we'll hang
+      ;; around sadly forever, accepting connections to nowhere. TODO
       #:on-absence (match t
 		     [(or (topic 'publisher (tcp-channel (== local-addr) remote-addr _) _)
 			  (topic 'subscriber (tcp-channel remote-addr (== local-addr) _) _))