From e9ce64c8bb7d4094c902f581d37741e0b062c6a0 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 25 Sep 2011 16:19:27 +0200 Subject: [PATCH] ob-asymptote: silence byte-compiler * lisp/ob-asymptote.el (org-babel-asymptote-define-type): silence byte-compiler. --- lisp/ob-asymptote.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/ob-asymptote.el b/lisp/ob-asymptote.el index 2219e03e0..5bd33f508 100644 --- a/lisp/ob-asymptote.el +++ b/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)