From 0dc11f7ccbb6c35ae01c73f15af1809bd813cde8 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Mon, 9 Jul 2012 16:23:35 -0400
Subject: [PATCH] Fix topic pattern in unsubscribe

---
 os2-event-relay.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/os2-event-relay.rkt b/os2-event-relay.rkt
index 3a42c1e..701501c 100644
--- a/os2-event-relay.rkt
+++ b/os2-event-relay.rkt
@@ -22,7 +22,7 @@
 			      (send-message msg))])))]
 		     [_ state])
      #:on-absence (match t
-		    [(topic 'subscriber (cons (? evt?) e) #f)
+		    [(topic 'subscriber (cons (? evt? e) _) #f)
 		     (printf "UNSUBSCRIBED ~v~n" e) (flush-output)
 		     (transition state
 		       (at-meta-level (delete-role t)))]))))