projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
actors: Automatically add cookie by default in hive-create-actor.
[8sync.git]
/
8sync
/
actors.scm
diff --git
a/8sync/actors.scm
b/8sync/actors.scm
index 1dab9d7918ea62b481722123aeee03513ec12965..9a0bb30f18488019cef1ebba7b64fb5ea4d098e9 100644
(file)
--- a/
8sync/actors.scm
+++ b/
8sync/actors.scm
@@
-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))