From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Mon, 26 Dec 2016 21:26:10 +0000 (-0600)
Subject: actors: Removing unnecessary level of indirection around actor-message-handler.
X-Git-Tag: v0.4.0~49
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=fa2ee688df757fd5d7409b0787651b2124a8ce6a;ds=sidebyside

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 2c7381d..886e114 100644
--- 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.