-(define-simple-actor <proog>
- (greet-emo
- (lambda (actor message)
- (display "Hi, Emo!\n"))))
+(define-actor <proog> (<actor>)
+ ((greet-emo
+ (lambda (actor message)
+ (display "proog> Listen, Emo! Listen to the sounds of the machine!\n")
+ (signal-condition! (.done? actor)))))
+ (done? #:init-keyword #:done?
+ #:accessor .done?))