-(define hive (make-hive))
-(define our-emo (hive-create-actor hive <emo>))
-(define our-proog (hive-create-actor hive <proog>))
-(ez-run-hive hive
- (list (hive-bootstrap-message hive our-emo 'greet-proog
- #:target our-proog)))
+(define (main . args)
+ (run-hive
+ (lambda (hive)
+ (define done? (make-condition))
+ (define our-emo (bootstrap-actor hive <emo>))
+ (define our-proog (bootstrap-actor hive <proog>
+ #:done? done?))
+ (<- our-emo 'greet-proog our-proog)
+ (wait done?))))