projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Rename actor-am-i-alive? to actor-alive?.
[8sync.git]
/
8sync
/
actors.scm
diff --git
a/8sync/actors.scm
b/8sync/actors.scm
index 1dab9d7918ea62b481722123aeee03513ec12965..2c9870ce26aef93a51655e4206772dd632fce4f3 100644
(file)
--- a/
8sync/actors.scm
+++ b/
8sync/actors.scm
@@
-47,7
+47,7
@@
actor-id-hive
actor-id-string
actor-id-hive
actor-id-string
- actor-a
m-i-a
live?
+ actor-alive?
build-actions
build-actions
@@
-358,7
+358,7
@@
to come after class definition."
(define %current-actor
(make-parameter #f))
(define %current-actor
(make-parameter #f))
-(define (actor-a
m-i-a
live? actor)
+(define (actor-alive? actor)
(hive-resolve-local-actor (actor-hive actor) (actor-id actor)))
(hive-resolve-local-actor (actor-hive actor) (actor-id actor)))
@@
-440,7
+440,7
@@
to come after class definition."
(define-method (hive-gen-actor-id (hive <hive>) cookie)
(make-address (if cookie
(define-method (hive-gen-actor-id (hive <hive>) cookie)
(make-address (if cookie
- (string-append cookie "
-
" (big-random-number-string))
+ (string-append cookie "
:
" (big-random-number-string))
(big-random-number-string))
(hive-id hive)))
(big-random-number-string))
(hive-id hive)))
@@
-647,11
+647,13
@@
that method for documentation."
actor-id))
(define* (hive-create-actor hive actor-class #:rest init)
actor-id))
(define* (hive-create-actor hive actor-class #:rest init)
+ "Create an actor on HIVE using ACTOR-CLASS passing in INIT args"
(%hive-create-actor hive actor-class
(%hive-create-actor hive actor-class
- init
#f
))
+ init
(symbol->string (class-name actor-class))
))
(define* (hive-create-actor* hive actor-class id-cookie #:rest init)
(define* (hive-create-actor* hive actor-class id-cookie #:rest init)
- "Create an actor, but also add a 'cookie' to the name for debugging"
+ "Create an actor, but also allow customizing a 'cookie' added to the id
+for debugging"
(%hive-create-actor hive actor-class
init id-cookie))
(%hive-create-actor hive actor-class
init id-cookie))