From: Christopher Allan Webber Date: Wed, 27 Apr 2016 03:34:00 +0000 (-0500) Subject: actors: Remove ; no longer export actor-hive. X-Git-Tag: v0.2.0~23 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=13cb6055e917635850e8f0e3eea5c6b0dc376e7a;p=8sync.git actors: Remove ; no longer export actor-hive. The goal of hive-proxy (in XUDD at least) was to prevent actors from accessing their hive. Since we're no longer exporting actor-hive we've more or less achieved that though. * 8sync/systems/actors.scm: No longer export actor-hive. (): Adjust comment about deferred-reply. (, ): Removed. --- diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm index 119f8a4..7e8d957 100644 --- a/8sync/systems/actors.scm +++ b/8sync/systems/actors.scm @@ -35,7 +35,6 @@ actor-id - actor-hive actor-message-handler ;;; Commenting out the
type for now; @@ -119,9 +118,11 @@ (define-record-type (make-message-intern id to from action - body in-reply-to wants-reply ; do we need hive-proxy? - ;; Are these still needed? - replied deferred-reply) + body in-reply-to wants-reply + replied + ;; @@: Not used yet. + ;; Will we ever find a real use case? + deferred-reply) message? (id message-id) (to message-to) @@ -552,7 +553,6 @@ so this gets called from the nicer hive-create-actor interface. See that method for documentation." (let* ((actor-id (hive-gen-actor-id hive id-cookie)) (actor (apply make actor-class - ;; @@: If we switch to a hive-proxy, do it here #:hive hive #:id actor-id init))) @@ -569,25 +569,12 @@ that method for documentation." init id-cookie)) -;; TODO: Give actors this instead of the actual hive reference -(define-class () - (send-message #:getter proxy-send-message - #:init-keyword #:send-message) - (create-actor #:getter proxy-create-actor - #:init-keyword #:create-actor)) - -;; Live the hive proxy, but has access to the hive itself... -(define-class () - (hive #:init-keyword #:hive)) - - ;;; Various API methods for actors to interact with the system ;;; ========================================================== ;; TODO: move send-message and friends here...? -;; TODO: Rewrite this inside of a ? (define* (create-actor from-actor actor-class #:rest init) "Create an instance of actor-class. Return the new actor's id.