+ (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 ...))))))
+