[elpa] 237/352: Makron wcheck-with-language-data muuttujille paremmat nimet

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 9ba169b2a62aa1d0544b2b3ec24bf1f84f27493a
Author: Teemu Likonen <address@hidden>
Date:   Sun Feb 27 18:52:32 2011 +0000

    Makron wcheck-with-language-data muuttujille paremmat nimet
---
 wcheck-mode.el |   14 +++++++-------
 1 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 13185b4..0156ce8 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -654,20 +654,20 @@ slower. A suitable compromise may be 3 or 4.")
   `(wcheck-loop-over-reqs-engine :jump-req ,var ,@body))
 
 
-(defmacro wcheck-with-language-data (language bindings &rest body)
+(defmacro wcheck-with-language-data (var-lang bindings &rest body)
   (declare (indent 2))
-  (let ((lang-var (make-symbol "--wck-language--")))
-    `(let* ((,lang-var ,(cadr language))
-            ,@(when (car language)
-                `((,(car language) ,lang-var)))
+  (let ((language (make-symbol "--wck-language--")))
+    `(let* ((,language ,(cadr var-lang))
+            ,@(when (car var-lang)
+                `((,(car var-lang) ,language)))
             ,@(mapcar
                (lambda (var)
                  (cond ((symbolp var)
                         (list var `(wcheck-query-language-data
-                                    ,lang-var ',var)))
+                                    ,language ',var)))
                        ((and var (listp var))
                         (list (car var) `(wcheck-query-language-data
-                                          ,lang-var ',(cadr var))))))
+                                          ,language ',(cadr var))))))
                bindings))
        ,@body)))