X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Factors.scm;h=55966f531eba60af75edd83b17b1ca8feb0e9295;hp=e5a2985abe6349c412fa0af6f8e14a29f9adb17f;hb=5c4ec104c523e2d9cb569ec12dd6f7ce72de034e;hpb=2d7aed19925bba9851cbb6945ff865ad3adcd9c0 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)