X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Factors.scm;h=ce55597bf912aa001282e65cbac055c872a7b991;hp=87d29ec1b036b4fabae320b840a9866e86e5010d;hb=674056fde0ebfc4454485a8776ecb9efd9c3af8f;hpb=d7d268fd056bd54a42859534057fc80b25c75c8b diff --git a/8sync/systems/actors.scm b/8sync/systems/actors.scm index 87d29ec..ce55597 100644 --- a/8sync/systems/actors.scm +++ b/8sync/systems/actors.scm @@ -349,7 +349,7 @@ more compact following syntax: (simple-dispatcher (list (%expand-action-item action-item) ...))))) -(define-syntax-rule (define-simple-actor class (actions ...)) +(define-syntax-rule (define-simple-actor class actions ...) (define-class class () (message-handler #:init-value (make-action-dispatch actions ...)