projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
demos: simplest-possible: Adjust emo/proog dialogue to match film.
[8sync.git]
/
demos
/
actors
/
simplest-possible.scm
diff --git
a/demos/actors/simplest-possible.scm
b/demos/actors/simplest-possible.scm
index 09ee227af8d4bee9a1455821722c00b42a33a7a2..41b8108add8c5f843f19644f8d9ca6de09befb42 100644
(file)
--- a/
demos/actors/simplest-possible.scm
+++ b/
demos/actors/simplest-possible.scm
@@
-22,7
+22,7
@@
(define-simple-actor <emo>
(greet-proog
(lambda (actor message)
(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))))
(send-message
actor (message-ref message 'target)
'greet-emo))))
@@
-30,7
+30,7
@@
(define-simple-actor <proog>
(greet-emo
(lambda (actor message)
(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 hive (make-hive))
(define our-emo (hive-create-actor hive <emo>))