Add publisher endpoint to echo examples

This commit is contained in:
Tony Garnock-Jones 2013-06-07 21:01:55 -04:00
parent e755c473d1
commit bee8891bf6
2 changed files with 2 additions and 0 deletions

View File

@ -6,6 +6,7 @@
(define (echoer from to) (define (echoer from to)
(transition stateless (transition stateless
(publisher (tcp-channel to from ?))
(subscriber (tcp-channel from to ?) (subscriber (tcp-channel from to ?)
(on-absence (quit)) (on-absence (quit))
(on-message (on-message

View File

@ -6,6 +6,7 @@
(define (echoer from to) (define (echoer from to)
(transition/no-state (transition/no-state
(publisher (tcp-channel to from ?))
(subscriber (tcp-channel from to ?) (subscriber (tcp-channel from to ?)
(on-absence (quit)) (on-absence (quit))
(on-message (on-message