From: Christopher Allan Webber Date: Tue, 26 Apr 2016 17:52:28 +0000 (-0500) Subject: actors: Switch send-message and reply-message to use 8sync-nowait X-Git-Tag: v0.2.0~35 X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=5c4ec104c523e2d9cb569ec12dd6f7ce72de034e;p=8sync.git actors: Switch send-message and reply-message to use 8sync-nowait There's no reason to block on continuing our work if using just send-message and reply-message, so, fix. * 8sync/systems/actors.scm (send-message, reply-message): Switch to using 8sync-nowait instead of 8sync. --- diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm index e5a2985..55966f5 100644 --- a/8sync/systems/actors.scm +++ b/8sync/systems/actors.scm @@ -201,7 +201,7 @@ If key not found and DFLT not provided, throw an error." (message (make-message (hive-gen-message-id hive) to-id (actor-id from-actor) action (kwarg-list-to-alist message-body-args)))) - (8sync (hive-process-message hive message)))) + (8sync-nowait (hive-process-message hive message)))) (define (send-message-wait from-actor to-id action . message-body-args) "Send a message from an actor to another, but wait until we get a response" @@ -228,7 +228,7 @@ If key not found and DFLT not provided, throw an error." (actor-id from-actor) '*reply* (kwarg-list-to-alist message-body-args) #:in-reply-to (message-id original-message)))) - (8sync (hive-process-message hive new-message)))) + (8sync-nowait (hive-process-message hive new-message)))) (define (reply-message-wait from-actor original-message . message-body-args)