projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Fix handling errors on resuming.
[8sync.git]
/
demos
/
actors
/
robotscanner.scm
diff --git
a/demos/actors/robotscanner.scm
b/demos/actors/robotscanner.scm
index 52f96e0bf20f6ca72df9cb1679cf3544737c9555..256b3a321686927ad760e8d93556f1a183c28f90 100644
(file)
--- a/
demos/actors/robotscanner.scm
+++ b/
demos/actors/robotscanner.scm
@@
-60,9
+60,9
@@
(match-lambda
((clean-droids infected-droids)
;; Create this room
(match-lambda
((clean-droids infected-droids)
;; Create this room
- (define room (create-actor*
actor
<warehouse-room> "room"))
+ (define room (create-actor* <warehouse-room> "room"))
(define* (init-droid #:key infected)
(define* (init-droid #:key infected)
- (define droid (create-actor*
actor
<droid> "droid"
+ (define droid (create-actor* <droid> "droid"
#:infected infected
#:room room))
(<-wait droid 'register-with-room))
#:infected infected
#:room room))
(<-wait droid 'register-with-room))
@@
-95,7
+95,7
@@
;; Add security robot
(let ((security-robot
;; Add security robot
(let ((security-robot
- (create-actor
actor
<security-robot>)))
+ (create-actor <security-robot>)))
(<- security-robot 'begin-mission
#:starting-room first-room
#:overseer (actor-id actor)))))
(<- security-robot 'begin-mission
#:starting-room first-room
#:overseer (actor-id actor)))))
@@
-265,7
+265,6
@@
(run-hive
(lambda (hive)
(define done? (make-condition))
(run-hive
(lambda (hive)
(define done? (make-condition))
- (define overseer (bootstrap-actor hive <overseer>
- #:done? done?))
+ (define overseer (create-actor <overseer> #:done? done?))
(<- overseer 'init-world)
(wait done?))))
(<- overseer 'init-world)
(wait done?))))