;; Macro definitions used for SAM behaviour definition
;;
-(module sam-macros
- (make-beh define-beh)
+(module sam-macros *
(import scheme
(chicken base)
(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 ...))))))
+