Note re: roles

This commit is contained in:
Tony Garnock-Jones 2012-06-19 11:37:10 -04:00
parent 218c6cc561
commit f6103ee804
1 changed files with 2 additions and 0 deletions

View File

@ -246,6 +246,8 @@
(define (topic-subscriber pattern #:virtual? [virtual? #f])
(topic 'subscriber pattern virtual?))
;; TODO: Ideally this would be extensible; roles like 'debug-listener,
;; 'logger etc exist.
(define (co-roles r)
(case r
[(publisher) '(subscriber)]