X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Factors.scm;h=62a07ac113e15d23b87c3cce0e6cf58c2856b8ae;hp=05502fd0a4f7e07c2c2d0eff5ee905cb1cbaf85e;hb=d50c1349a0f5abc0e110400f0c3315a1809bf813;hpb=d3927217d30eef6207c52c2175ab147edf34e6a0

diff --git a/8sync/actors.scm b/8sync/actors.scm
index 05502fd..62a07ac 100644
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -81,7 +81,11 @@
 
             <- <-wait
 
-            spawn-hive run-hive))
+            spawn-hive run-hive
+
+            ;; Maybe the wrong place for this, or for it to be exported.
+            ;; But it's used in websockets' server implementation at least...
+            wrap))
 
 ;; For ids
 (set! *random-state* (random-state-from-platform))
@@ -219,18 +223,18 @@
            #:message message))
   (apply method actor message (message-body message)))
 
-(define-syntax-rule (wrap-apply body)
+(define-syntax-rule (wrap body)
   "Wrap possibly multi-value function in a procedure, applies all arguments"
   (lambda args
     (apply body args)))
 
 (define-syntax-rule (build-actions (symbol method) ...)
   "Construct an alist of (symbol . method), where the method is wrapped
-with wrap-apply to facilitate live hacking and allow the method definition
+with `wrap' to facilitate live hacking and allow the method definition
 to come after class definition."
   (build-rmeta-slot
    (list (cons (quote symbol)
-               (wrap-apply method)) ...)))
+               (wrap method)) ...)))
 
 (define-class <actor> ()
   ;; An address object... a vector of #(actor-id hive-id inbox-channel dead?)