Fix topic pattern in unsubscribe
This commit is contained in:
parent
3fdd1ae746
commit
0dc11f7ccb
|
@ -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)))]))))
|
||||
|
|
Loading…
Reference in New Issue