(define (call-catching-coroutine thunk)
(define (call-catching-errors)
- ;; TODO: maybe parameterize and use maybe-catch-all from agenda.scm
+ ;; TODO: maybe parameterize (or attach to hive) and use
+ ;; maybe-catch-all from agenda.scm
;; @@: Why not just use with-throw-handler and let the catch
;; happen at the agenda? That's what we used to do, but
;; it ended up with a SIGABRT. See:
(process-remote-message))))
(define-method (hive-actor-local? (hive <hive>) address)
- (hash-ref (hive-actor-registry hive) address))
+ (equal? (hive-id hive) (address-hive-id address)))
(define-method (hive-register-actor! (hive <hive>) (actor <actor>))
(hash-set! (hive-actor-registry hive) (actor-id actor) actor))