projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Rename msg-receive, msg-val to mbody-receive, mbody-val.
[8sync.git]
/
demos
/
actors
/
robotscanner.scm
diff --git
a/demos/actors/robotscanner.scm
b/demos/actors/robotscanner.scm
index 0b32b36251eccc1f3f5f20d364af5b43e88b8418..1fd3c88b96ad7b5d0c81b38dbce05b6096d8d372 100644
(file)
--- a/
demos/actors/robotscanner.scm
+++ b/
demos/actors/robotscanner.scm
@@
-223,13
+223,13
@@
(address-actor-id room)))
;; Find all droids in this room and exterminate the infected ones.
(address-actor-id room)))
;; Find all droids in this room and exterminate the infected ones.
- (m
sg
-receive (_ #:key list-droids droid-ids #:allow-other-keys)
+ (m
body
-receive (_ #:key list-droids droid-ids #:allow-other-keys)
(<-wait room 'list-droids)
(for-each
(lambda (droid-id)
(cond
;; Looks like it's infected
(<-wait room 'list-droids)
(for-each
(lambda (droid-id)
(cond
;; Looks like it's infected
- ((m
sg
-val (<-wait droid-id 'infection-expose))
+ ((m
body
-val (<-wait droid-id 'infection-expose))
;; Inform that it's infected
(<- overseer 'transmission
#:text (format #f "~a found to be infected... taking out"
;; Inform that it's infected
(<- overseer 'transmission
#:text (format #f "~a found to be infected... taking out"
@@
-238,7
+238,7
@@
;; Keep firing till it's dead.
(let ((still-alive #t))
(while still-alive
;; Keep firing till it's dead.
(let ((still-alive #t))
(while still-alive
- (m
sg
-receive (response #:key alive #:allow-other-keys)
+ (m
body
-receive (response #:key alive #:allow-other-keys)
(<-wait droid-id 'get-shot)
(<- overseer 'transmission
#:text (droid-status-format response))
(<-wait droid-id 'get-shot)
(<- overseer 'transmission
#:text (droid-status-format response))
@@
-253,7
+253,7
@@
droid-ids))
;; Switch to next room, if there is one.
droid-ids))
;; Switch to next room, if there is one.
- (set! room (m
sg
-val (<-wait room 'get-next-room))))
+ (set! room (m
body
-val (<-wait room 'get-next-room))))
;; Good job everyone! Shut down the operation.
(<- overseer 'transmission
;; Good job everyone! Shut down the operation.
(<- overseer 'transmission