From 15d004d6a653a4302deae1a64a516b3ebb0da873 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Wed, 27 Apr 2016 14:21:59 -0500 Subject: [PATCH] actors: Remove unnecessary let in hive-process-message. * 8sync/systems/actors.scm (hive-process-message): Removed unnecessary let. --- 8sync/systems/actors.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) 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))) -- 2.31.1