Преглед на файлове

ob-asymptote: silence byte-compiler

* lisp/ob-asymptote.el (org-babel-asymptote-define-type): silence byte-compiler.
Nicolas Goaziou преди 13 години
родител
ревизия
e9ce64c8bb
променени са 1 файла, в които са добавени 9 реда и са изтрити 7 реда
  1. 9 7
      lisp/ob-asymptote.el

+ 9 - 7
lisp/ob-asymptote.el

@@ -131,14 +131,16 @@ The type is `string' if any element in DATA is
 a string. Otherwise, it is either `real', if some elements are
 floats, or `int'."
   (let* ((type 'int)
+	 find-type			; for byte-compiler
 	 (find-type
-	  (lambda (row)
-	    (catch 'exit
-	      (mapc (lambda (el)
-		      (cond ((listp el) (funcall find-type el))
-			    ((stringp el) (throw 'exit (setq type 'string)))
-			    ((floatp el) (setq type 'real))))
-		    row)))))
+	  (function
+	   (lambda (row)
+	     (catch 'exit
+	       (mapc (lambda (el)
+		       (cond ((listp el) (funcall find-type el))
+			     ((stringp el) (throw 'exit (setq type 'string)))
+			     ((floatp el) (setq type 'real))))
+		     row))))))
     (funcall find-type data) type))
 
 (provide 'ob-asymptote)