From c769bb3b2c949c304eb4395d3f24eebea6106c1a Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Sun, 1 Jan 2017 18:45:50 -0600 Subject: [PATCH] actors: Rename ez-run-hive to run-hive. * 8sync/actors.scm (run-hive): Renamed from ez-run-hive. All callers changed. --- 8sync/actors.scm | 4 ++-- demos/actors/botherbotherbother.scm | 2 +- demos/actors/robotscanner.scm | 2 +- demos/actors/simplest-possible.scm | 6 +++--- demos/ircbot.scm | 2 +- tests/test-actors.scm | 4 ++-- 6 files changed, 10 insertions(+), 10 deletions(-) diff --git a/8sync/actors.scm b/8sync/actors.scm index 1927465..333d779 100644 --- a/8sync/actors.scm +++ b/8sync/actors.scm @@ -75,7 +75,7 @@ call-with-message msg-receive msg-val - ez-run-hive + run-hive bootstrap-message serialize-message write-message @@ -698,7 +698,7 @@ Like create-actor, but permits supplying an id-cookie." ;;; 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 diff --git a/demos/actors/botherbotherbother.scm b/demos/actors/botherbotherbother.scm index 356a6a9..4911afa 100755 --- a/demos/actors/botherbotherbother.scm +++ b/demos/actors/botherbotherbother.scm @@ -131,4 +131,4 @@ #:target professor)) students)) - (ez-run-hive hive start-bothering-tasks)) + (run-hive hive start-bothering-tasks)) diff --git a/demos/actors/robotscanner.scm b/demos/actors/robotscanner.scm index e8d2cc8..f620ba8 100644 --- a/demos/actors/robotscanner.scm +++ b/demos/actors/robotscanner.scm @@ -265,4 +265,4 @@ (define overseer (hive-create-actor hive )) (define initial-messages (list (bootstrap-message hive overseer 'init-world))) - (ez-run-hive hive initial-messages)) + (run-hive hive initial-messages)) diff --git a/demos/actors/simplest-possible.scm b/demos/actors/simplest-possible.scm index 13aea1c..e9aaac7 100644 --- a/demos/actors/simplest-possible.scm +++ b/demos/actors/simplest-possible.scm @@ -34,6 +34,6 @@ (define our-emo (hive-create-actor hive )) (define our-proog (hive-create-actor hive )) (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)))) diff --git a/demos/ircbot.scm b/demos/ircbot.scm index eaae113..b962ad7 100755 --- a/demos/ircbot.scm +++ b/demos/ircbot.scm @@ -123,7 +123,7 @@ (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)) diff --git a/tests/test-actors.scm b/tests/test-actors.scm index 73927cd..68a05bf 100644 --- a/tests/test-actors.scm +++ b/tests/test-actors.scm @@ -115,7 +115,7 @@ (lazy-rep (hive-create-actor* hive "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)))) @@ -129,7 +129,7 @@ customer> Well then! Harumph.\n" 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)))) -- 2.31.1