From 47de7ccf21d3a2a615271d0ab007ce3d15ffa23d Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 2 Jan 2017 15:15:59 -0600
Subject: [PATCH] actors: Rename actor-am-i-alive? to actor-alive?.

* 8sync/actors.scm (actor-alive?): Rename from actor-am-i-alive?.
* 8sync/actors.scm:
* 8sync/repl.scm:
* doc/8sync-new-manual.org: Update all references to actor-alive?.
---
 8sync/actors.scm         | 4 ++--
 8sync/repl.scm           | 2 +-
 doc/8sync-new-manual.org | 8 ++++----
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/8sync/actors.scm b/8sync/actors.scm
index 9a0bb30..2c9870c 100644
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -47,7 +47,7 @@
             actor-id-hive
             actor-id-string
 
-            actor-am-i-alive?
+            actor-alive?
 
             build-actions
 
@@ -358,7 +358,7 @@ to come after class definition."
 (define %current-actor
   (make-parameter #f))
 
-(define (actor-am-i-alive? actor)
+(define (actor-alive? actor)
   (hive-resolve-local-actor (actor-hive actor) (actor-id actor)))
 
 
diff --git a/8sync/repl.scm b/8sync/repl.scm
index 16e2466..0065403 100644
--- a/8sync/repl.scm
+++ b/8sync/repl.scm
@@ -52,7 +52,7 @@
   (define server
     (spawn-coop-repl-server socket))
   (set! (repl-manager-socket repl-manager) socket)
-  (while (actor-am-i-alive? repl-manager)
+  (while (actor-alive? repl-manager)
     (poll-coop-repl-server server)
     (8sleep (repl-manager-poll-every repl-manager))))
 
diff --git a/doc/8sync-new-manual.org b/doc/8sync-new-manual.org
index 1caa79b..d0a9967 100644
--- a/doc/8sync-new-manual.org
+++ b/doc/8sync-new-manual.org
@@ -567,7 +567,7 @@ How about an actor that start sleeping, and keeps sleeping?
                            (loop sleeper-loop))))
 
   (define (sleeper-loop actor message)
-    (while (actor-am-i-alive? actor)
+    (while (actor-alive? actor)
       (display "Zzzzzzzz....\n")
       ;; Sleep for one second
       (8sleep 1)))
@@ -588,7 +588,7 @@ In our sleeper-loop we also see a call to "8sleep".
 "8sleep" is like Guile's "sleep" method, except it is non-blocking
 and will always yield to the scheduler.
 
-Our while loop also checks "actor-am-i-alive?" to see whether or not
+Our while loop also checks "actor-alive?" to see whether or not
 it is still registered.
 In general, if you keep a loop in your actor that regularly yields
 to the scheduler, you should check this.
@@ -645,7 +645,7 @@ reference other actors.
     ""
     (set! (worker-task-left worker) difficulty)
     (display "worker> Whatever you say, boss!\n")
-    (while (and (actor-am-i-alive? worker)
+    (while (and (actor-alive? worker)
                 (> (worker-task-left worker) 0))
       (display "worker> *huff puff*\n")
       (set! (worker-task-left worker)
@@ -715,7 +715,7 @@ into a micromanager.
       (if still-working
           (begin (display "manager> Harumph!\n")
                  (8sleep 1)
-                 (when (actor-am-i-alive? manager)
+                 (when (actor-alive? manager)
                    (manager-micromanage-loop manager)))
           (begin (display "manager> Oh!  I guess you can go home then.\n")
                  (<- manager (manager-direct-report manager) 'go-home)))))
-- 
2.31.1