projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
irc: Split irc-bot-send-line into main functionality and action handler.
[8sync.git]
/
8sync
/
actors.scm
diff --git
a/8sync/actors.scm
b/8sync/actors.scm
index 867e3d08e2e0a2d2525aa5d06189231c18648b99..2c7381d556457b839e9b23123777f80eeb700313 100644
(file)
--- a/
8sync/actors.scm
+++ b/
8sync/actors.scm
@@
-322,13
+322,13
@@
raise an exception if an error."
;;
(define (make-address actor-id hive-id)
;;
(define (make-address actor-id hive-id)
- (
cons
actor-id hive-id))
+ (
vector
actor-id hive-id))
(define (address-actor-id address)
(define (address-actor-id address)
- (
car address
))
+ (
vector-ref address 0
))
(define (address-hive-id address)
(define (address-hive-id address)
- (
cdr address
))
+ (
vector-ref address 1
))
(define (address->string address)
(string-append (address-actor-id address) "@"
(define (address->string address)
(string-append (address-actor-id address) "@"
@@
-632,6
+632,7
@@
that method for documentation."
init #f))
(define* (hive-create-actor* hive actor-class id-cookie #:rest init)
init #f))
(define* (hive-create-actor* hive actor-class id-cookie #:rest init)
+ "Create an actor, but also add a 'cookie' to the name for debugging"
(%hive-create-actor hive actor-class
init id-cookie))
(%hive-create-actor hive actor-class
init id-cookie))