X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Factors.scm;h=1d8e6023aa3b19bcb8350e4ee35d759cc3f59021;hp=8e1b504b9378e3f5ff5ab4e239018459cb2ced3f;hb=84a19e7d4cb97e00a64191e1ecfcf984ffae52d1;hpb=67e7474e551af5991ba4c5e3d686785a1aaa1d42

diff --git a/8sync/actors.scm b/8sync/actors.scm
index 8e1b504..1d8e602 100644
--- a/8sync/actors.scm
+++ b/8sync/actors.scm
@@ -51,7 +51,7 @@
 
             build-actions
 
-            define-simple-actor
+            define-actor
 
             <hive>
             make-hive
@@ -395,10 +395,13 @@ to come after class definition."
 ;;; Actor utilities
 ;;; ===============
 
-(define-syntax-rule (define-simple-actor class action ...)
-  (define-class class (<actor>)
+(define-syntax-rule (define-actor class inherits
+                      (action ...)
+                      slots ...)
+  (define-class class inherits
     (actions #:init-value (build-actions action ...)
-             #:allocation #:each-subclass)))
+             #:allocation #:each-subclass)
+    slots ...))
 
 
 ;;; The Hive