From fa2ee688df757fd5d7409b0787651b2124a8ce6a Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Mon, 26 Dec 2016 15:26:10 -0600 Subject: [PATCH] actors: Removing unnecessary level of indirection around actor-message-handler. * 8sync/actors.scm (actor-message-handler): Move to be a simple #:getter of , which is what it really was already anyhow. --- 8sync/actors.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) 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 )) - (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. -- 2.31.1