X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=sam.git;a=blobdiff_plain;f=sam-macros.scm;h=bbf8adab5cb26acaedba85164ece96fddf7f0d9c;hp=cf4f9ac598b0fafce7d34920af43a89a111ac4c6;hb=38e6b00db7075b3c9618b71f2b8cf3453c99b849;hpb=7b73d44a72ed33304da016672c8f243a585856fa

diff --git a/sam-macros.scm b/sam-macros.scm
index cf4f9ac..bbf8ada 100644
--- 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 ...)
                  ...