-(define-class <actor> ()
- ;; An address object
- (id #:init-keyword #:id
- #:getter actor-id)
- ;; The hive we're connected to.
- ;; We need this to be able to send messages.
- (hive #:init-keyword #:hive
- #:accessor actor-hive)
- ;; How we receive and process new messages
- (message-handler #:init-value (wrap-apply actor-inheritable-message-handler)
- ;; @@: There's no reason not to use #:class instead of
- ;; #:each-subclass anywhere in this file, except for
- ;; Guile bug #25211 (#:class is broken in Guile 2.2)
- #:allocation #:each-subclass)
-
- ;; This is the default, "simple" way to inherit and process messages.
- (actions #:init-value '()
- #:allocation #:each-subclass))
-