From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Wed, 27 Apr 2016 19:21:59 +0000 (-0500)
Subject: actors: Remove unnecessary let in hive-process-message.
X-Git-Tag: v0.2.0~18
X-Git-Url: https://jxself.org/git/?p=8sync.git;a=commitdiff_plain;h=15d004d6a653a4302deae1a64a516b3ebb0da873

actors: Remove unnecessary let in hive-process-message.

* 8sync/systems/actors.scm (hive-process-message): Removed unnecessary let.
---

diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm
index fb170bc..e33a88b 100644
--- a/8sync/systems/actors.scm
+++ b/8sync/systems/actors.scm
@@ -484,13 +484,12 @@ more compact following syntax:
     (call-with-prompt (hive-prompt hive)
       thunk
       (lambda (kont actor message)
-        (let ((hive (actor-hive actor)))
-          ;; Register the coroutine
-          (hash-set! (hive-waiting-coroutines hive)
-                     (message-id message)
-                     (cons (actor-id actor) kont))
-          ;; Send off the message
-          (8sync (hive-process-message hive message))))))
+        ;; Register the coroutine
+        (hash-set! (hive-waiting-coroutines hive)
+                   (message-id message)
+                   (cons (actor-id actor) kont))
+        ;; Send off the message
+        (8sync (hive-process-message hive message)))))
 
   (define (process-local-message)
     (let ((actor (resolve-actor-to)))