X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=sam.git;a=blobdiff_plain;f=sam-macros.scm;h=cf4f9ac598b0fafce7d34920af43a89a111ac4c6;hp=16faba3f0ccf7e13f1cccad7dc2c39a0fb8d8608;hb=fb6698bac8e29c6579a998f59c26192274b9404e;hpb=dd9d28a6e6bb76533890d84cb48900352ff8fa68

diff --git a/sam-macros.scm b/sam-macros.scm
index 16faba3..cf4f9ac 100644
--- a/sam-macros.scm
+++ b/sam-macros.scm
@@ -1,8 +1,7 @@
 ;; Macro definitions used for SAM behaviour definition
 ;;
 
-(module sam-macros
-    (make-beh define-beh)
+(module sam-macros *
 
   (import scheme
           (chicken base)
@@ -28,5 +27,18 @@
   (define-syntax define-beh
     (syntax-rules ()
       ((_ name rest ...)
-       (define name (make-beh rest ...))))))
+       (define name (make-beh rest ...)))))
+
+  (define-syntax make-actor-with-beh
+    (syntax-rules ()
+      ((_ rest ...)
+       (make-actor
+        (make-beh rest ...)))))
+
+  (define-syntax define-actor-with-beh
+    (syntax-rules ()
+      ((_ name rest ...)
+       (define name
+         (make-actor-with-beh rest ...))))))
+