# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 958875959 0
# Node ID 203427c54c10e8a21924c05ccf5980cdb17fddf8
# Parent  a5d03117ad26ecfc4914bdcad23de00181ed9079
(ccl-compile-map-multiple): Don't quote lambda.

diff -r a5d03117ad26 -r 203427c54c10 lisp/international/ccl.el
--- a/lisp/international/ccl.el	Sun May 21 02:14:07 2000 +0000
+++ b/lisp/international/ccl.el	Sun May 21 02:25:59 2000 +0000
@@ -898,22 +898,22 @@
 (defun ccl-compile-map-multiple (cmd)
   (if (/= (length cmd) 4)
       (error "CCL: Invalid number of arguments: %s" cmd))
-  (let ((func '(lambda (arg mp)
-			  (let ((len 0) result add)
-			    (while arg
-			      (if (consp (car arg))
-				  (setq add (funcall func (car arg) t)
-					result (append result add)
-					add (+ (-(car add)) 1))
-				(setq result
-				      (append result
-					      (list (car arg)))
-				      add 1))
-			      (setq arg (cdr arg)
-				    len (+ len add)))
-			    (if mp 
-				(cons (- len) result)
-			      result))))
+  (let ((func (lambda (arg mp)
+		(let ((len 0) result add)
+		  (while arg
+		    (if (consp (car arg))
+			(setq add (funcall func (car arg) t)
+			      result (append result add)
+			      add (+ (-(car add)) 1))
+		      (setq result
+			    (append result
+				    (list (car arg)))
+			    add 1))
+		    (setq arg (cdr arg)
+			  len (+ len add)))
+		  (if mp 
+		      (cons (- len) result)
+		    result))))
 	arg)
     (setq arg (append (list (nth 0 cmd) (nth 1 cmd) (nth 2 cmd))
 		      (funcall func (nth 3 cmd) nil)))