projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
demos: Update demos to new conventions.
[8sync.git]
/
demos
/
actors
/
simplest-possible.scm
diff --git
a/demos/actors/simplest-possible.scm
b/demos/actors/simplest-possible.scm
index 9b563c0c6774c4c491c2904a5d49c859fd34d4ff..8496b92592d40adb2270dbc8f8b816cc6a95cd53 100644
(file)
--- a/
demos/actors/simplest-possible.scm
+++ b/
demos/actors/simplest-possible.scm
@@
-21,11
+21,9
@@
(define-simple-actor <emo>
(greet-proog
(define-simple-actor <emo>
(greet-proog
- (lambda (actor message)
+ (lambda (actor message
target
)
(display "emo> What's next, Proog?\n")
(display "emo> What's next, Proog?\n")
- (send-message
- actor (message-ref message 'target)
- 'greet-emo))))
+ (<- actor target 'greet-emo))))
(define-simple-actor <proog>
(greet-emo
(define-simple-actor <proog>
(greet-emo
@@
-38,4
+36,4
@@
(define (main . args)
(ez-run-hive hive
(list (bootstrap-message hive our-emo 'greet-proog
(define (main . args)
(ez-run-hive hive
(list (bootstrap-message hive our-emo 'greet-proog
-
#:target
our-proog))))
+ our-proog))))