summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
13cb605)
* 8sync/systems/actors.scm (bootstrap-message): Renamed from
hive-bootstrap-message.
* demos/actors/botherbotherbother.scm (main):
* demos/actors/robotscanner.scm (main):
* demos/actors/simplest-possible.scm (main):
* tests/test-actors.scm: Rename references to bootstrap-message.
reply-message reply-message-wait
ez-run-hive
reply-message reply-message-wait
ez-run-hive
serialize-message write-message
serialize-message-pretty pprint-message
serialize-message write-message
serialize-message-pretty pprint-message
(spawn-and-queue-repl-server! agenda)))
(start-agenda agenda)))
(spawn-and-queue-repl-server! agenda)))
(start-agenda agenda)))
-(define (hive-bootstrap-message hive to-id action . message-body-args)
+(define (bootstrap-message hive to-id action . message-body-args)
(wrap
(apply send-message hive to-id action message-body-args)))
(wrap
(apply send-message hive to-id action message-body-args)))
(define start-bothering-tasks
(map
(lambda (student)
(define start-bothering-tasks
(map
(lambda (student)
- (hive-bootstrap-message hive student 'bother-professor
+ (bootstrap-message hive student 'bother-professor
#:target professor))
students))
#:target professor))
students))
(define hive (make-hive))
(define overseer (hive-create-actor hive <overseer>))
(define initial-messages
(define hive (make-hive))
(define overseer (hive-create-actor hive <overseer>))
(define initial-messages
- (list (hive-bootstrap-message hive overseer 'init-world)))
+ (list (bootstrap-message hive overseer 'init-world)))
(ez-run-hive hive initial-messages))
(ez-run-hive hive initial-messages))
(define our-proog (hive-create-actor hive <proog>))
(define (main . args)
(ez-run-hive hive
(define our-proog (hive-create-actor hive <proog>))
(define (main . args)
(ez-run-hive hive
- (list (hive-bootstrap-message hive our-emo 'greet-proog
- #:target our-proog))))
+ (list (bootstrap-message hive our-emo 'greet-proog
+ #:target our-proog))))
(parameterize ((%record-out (open-output-string)))
(let* ((result (ez-run-hive
hive
(parameterize ((%record-out (open-output-string)))
(let* ((result (ez-run-hive
hive
- (list (hive-bootstrap-message hive customer 'pester-rep
+ (list (bootstrap-message hive customer 'pester-rep
#:who-to-call diligent-rep))))
(displayed-text (get-output-string (%record-out))))
(test-equal
#:who-to-call diligent-rep))))
(displayed-text (get-output-string (%record-out))))
(test-equal
(parameterize ((%record-out (open-output-string)))
(let* ((result (ez-run-hive
hive
(parameterize ((%record-out (open-output-string)))
(let* ((result (ez-run-hive
hive
- (list (hive-bootstrap-message hive customer 'pester-rep
+ (list (bootstrap-message hive customer 'pester-rep
#:who-to-call lazy-rep))))
(displayed-text (get-output-string (%record-out))))
(test-equal
#:who-to-call lazy-rep))))
(displayed-text (get-output-string (%record-out))))
(test-equal