;;
(define (make-address actor-id hive-id)
- (cons actor-id hive-id))
+ (vector actor-id hive-id))
(define (address-actor-id address)
- (car address))
+ (vector-ref address 0))
(define (address-hive-id address)
- (cdr address))
+ (vector-ref address 1))
(define (address->string address)
(string-append (address-actor-id address) "@"
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))