X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Factors.scm;h=e33a88b3658eb514da2dd21b04d85e1f6305f322;hp=fb170bc45a1af34c86d557240da60cb7d22925af;hb=15d004d6a653a4302deae1a64a516b3ebb0da873;hpb=2afa74a2fa13c482acff44701637dfcbea8e4121

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)))