X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Factors.scm;h=51a6e50c88abfee680426b3356d2b159f0e00882;hp=fd5391ad2e7c59bf40cdbae798088b7127350f4f;hb=24964693f8dfc06f75d706acc3255d0686458ce8;hpb=e2d7d6de38565f0a7befe4e11b33206903568f3c diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm index fd5391a..51a6e50 100644 --- a/8sync/systems/actors.scm +++ b/8sync/systems/actors.scm @@ -462,10 +462,9 @@ more compact following syntax: (message-handler actor message))) ;; Possibly autoreply (if (message-needs-reply message) - (begin - ;; @@: Should we give *autoreply* as the action instead of *reply*? - (reply-message actor message - #:*auto-reply* #t))) + ;; @@: Should we give *autoreply* as the action instead of *reply*? + (reply-message actor message + #:*auto-reply* #t)) ;; Returning result allows actors to possibly make a run-request ;; at the end of handling a message. ;; ... We do want that, right?