Note re: roles
This commit is contained in:
parent
218c6cc561
commit
f6103ee804
2
os2.rkt
2
os2.rkt
|
@ -246,6 +246,8 @@
|
||||||
(define (topic-subscriber pattern #:virtual? [virtual? #f])
|
(define (topic-subscriber pattern #:virtual? [virtual? #f])
|
||||||
(topic 'subscriber pattern virtual?))
|
(topic 'subscriber pattern virtual?))
|
||||||
|
|
||||||
|
;; TODO: Ideally this would be extensible; roles like 'debug-listener,
|
||||||
|
;; 'logger etc exist.
|
||||||
(define (co-roles r)
|
(define (co-roles r)
|
||||||
(case r
|
(case r
|
||||||
[(publisher) '(subscriber)]
|
[(publisher) '(subscriber)]
|
||||||
|
|
Loading…
Reference in New Issue