X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=static.el;h=039fc06d145c8730ba77cedcd74ac533b5cc23b4;hb=ac4b34cee507bf4c839d83e3793309f06054b177;hp=2a2a89d6961a2812f7eb8357cb1c8b9cb04d5099;hpb=b7bae01820fc0b13e9fd1f09dd19e19e3be6709a;p=elisp%2Fapel.git

diff --git a/static.el b/static.el
index 2a2a89d..039fc06 100644
--- a/static.el
+++ b/static.el
@@ -51,13 +51,15 @@
 	       (list (quote quote) (, bodyform))
 	     (,@ (mapcar
 		  (if var
-		      (lambda (h)
-			(` ((, (car h))
-			    (list (quote funcall)
-				  (lambda ((, var)) (,@ (cdr h)))
-				  (list (quote quote) (, var))))))
-		    (lambda (h)
-		      (` ((, (car h)) (quote (progn (,@ (cdr h))))))))
+		      (function
+		       (lambda (h)
+			 (` ((, (car h))
+			     (list (quote funcall)
+				   (function (lambda ((, var)) (,@ (cdr h))))
+				   (list (quote quote) (, var)))))))
+		    (function
+		     (lambda (h)
+		       (` ((, (car h)) (quote (progn (,@ (cdr h)))))))))
 		  handlers))))))
 
 (put 'static-defconst 'lisp-indent-function 'defun)