* 8sync/actors.scm (run-hive): Renamed from ez-run-hive.
All callers changed.
call-with-message msg-receive msg-val
- ez-run-hive
+ run-hive
bootstrap-message
serialize-message write-message
;;; 8sync bootstrap utilities
;;; =========================
-(define* (ez-run-hive hive initial-tasks)
+(define* (run-hive hive initial-tasks)
"Start up an agenda and run HIVE in it with INITIAL-TASKS."
(let* ((queue (list->q initial-tasks))
(agenda (make-agenda #:pre-unwind-handler print-error-and-continue
#:target professor))
students))
- (ez-run-hive hive start-bothering-tasks))
+ (run-hive hive start-bothering-tasks))
(define overseer (hive-create-actor hive <overseer>))
(define initial-messages
(list (bootstrap-message hive overseer 'init-world)))
- (ez-run-hive hive initial-messages))
+ (run-hive hive initial-messages))
(define our-emo (hive-create-actor hive <emo>))
(define our-proog (hive-create-actor hive <proog>))
(define (main . args)
- (ez-run-hive hive
- (list (bootstrap-message hive our-emo 'greet-proog
- our-proog))))
+ (run-hive hive
+ (list (bootstrap-message hive our-emo 'greet-proog
+ our-proog))))
(list (bootstrap-message hive irc-bot 'init))))
;; TODO: load REPL
- (ez-run-hive hive initial-messages))
+ (run-hive hive initial-messages))
(define (main args)
(define parsed-args (parse-args "ircbot.scm" args))
(lazy-rep (hive-create-actor* hive <lazy-rep> "lazy-rep")))
;; * Playing a tape of a diligent service rep *
(parameterize ((%record-out (open-output-string)))
- (let* ((result (ez-run-hive
+ (let* ((result (run-hive
hive
(list (bootstrap-message hive customer 'pester-rep
#:who-to-call diligent-rep))))
displayed-text)))
;; * Playing a tape of a lazy service rep *
(parameterize ((%record-out (open-output-string)))
- (let* ((result (ez-run-hive
+ (let* ((result (run-hive
hive
(list (bootstrap-message hive customer 'pester-rep
#:who-to-call lazy-rep))))