Behaviours are now tagged lists.

[sam.git] / sam-macros.scm

diff --git a/sam-macros.scm b/sam-macros.scm
index cf4f9ac..bbf8ada 100644 (file)
--- a/sam-macros.scm
+++ b/sam-macros.scm
@@ -10,7 +10,8 @@
   (define-syntax make-beh
     (syntax-rules (: => finally)
       ((make-beh : parent (self) (pat => body ...) ... (finally after ...))
-       (cons (lambda (self . message)
+       (list 'beh
+             (lambda (self . message)
                (match message
                  (pat body ...)
                  ...