syndicate-lang
/
racket-matrix-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix topic pattern in unsubscribe

This commit is contained in:
Tony Garnock-Jones 2012-07-09 16:23:35 -04:00
parent 3fdd1ae746
commit 0dc11f7ccb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
os2-event-relay.rkt
View File

@ -22,7 +22,7 @@
(send-message msg))])))] (send-message msg))])))]
[_ state]) [_ state])
#:on-absence (match t #:on-absence (match t
[(topic 'subscriber (cons (? evt?) e) #f) [(topic 'subscriber (cons (? evt? e) _) #f)
(printf "UNSUBSCRIBED ~v~n" e) (flush-output) (printf "UNSUBSCRIBED ~v~n" e) (flush-output)
(transition state (transition state
(at-meta-level (delete-role t)))])))) (at-meta-level (delete-role t)))]))))