(define-simple-actor <emo>
(greet-proog
(lambda (actor message)
- (display "Heya Proog!\n")
+ (display "emo> What's next, Proog?\n")
(send-message
actor (message-ref message 'target)
'greet-emo))))
(define-simple-actor <proog>
(greet-emo
(lambda (actor message)
- (display "Hi, Emo!\n"))))
+ (display "proog> Listen, Emo! Listen to the sounds of the machine!\n"))))
(define hive (make-hive))
(define our-emo (hive-create-actor hive <emo>))
(define our-proog (hive-create-actor hive <proog>))
-(define (run-demo . args)
+(define (main . args)
(ez-run-hive hive
- (list (hive-bootstrap-message hive our-emo 'greet-proog
- #:target our-proog))))
+ (list (bootstrap-message hive our-emo 'greet-proog
+ #:target our-proog))))