1 ;; Macro definitions used for SAM behaviour definition
11 (define-syntax make-beh
12 (syntax-rules (: => finally)
13 ((make-beh : parent (self) (pat => body ...) ... (finally after ...))
14 (cons (lambda (self . message)
21 ((make-beh (self) (pat => body ...) ... (finally after ...))
22 (make-beh : root-beh (self) (pat => body ...) ... (finally after ...)))
23 ((make-beh : parent (self) (pat => body ...) ...)
24 (make-beh : parent (self) (pat => body ...) ... (finally)))
25 ((make-beh (self) (pat => body ...) ...)
26 (make-beh : root-beh (self) (pat => body ...) ... (finally)))))
28 (define-syntax define-beh
31 (define name (make-beh rest ...))))))