actors: Removing unnecessary level of indirection around actor-message-handler.

* 8sync/actors.scm (actor-message-handler): Move to be a simple #:getter
of <actor>, which is what it really was already anyhow.

diff --git a/8sync/actors.scm b/8sync/actors.scm
index 2c7381d556457b839e9b23123777f80eeb700313..886e11405fb8586e3edd92fa6329ae79011083b0 100644 (file)
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -295,15 +295,13 @@ raise an exception if an error."
                    ;; @@: 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)
+                   #:allocation #:each-subclass
+                   #:getter actor-message-handler)
 
   ;; This is the default, "simple" way to inherit and process messages.
   (actions #:init-value '()
            #:allocation #:each-subclass))
 
-(define-method (actor-message-handler (actor <actor>))
-  (slot-ref actor 'message-handler))
-
 ;;; So these are the nicer representations of addresses.
 ;;; However, they don't serialize so easily with scheme read/write, so we're
 ;;; using the simpler cons cell version below for now.