diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-09-25 16:19:27 +0200 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2011-09-25 16:19:27 +0200 |
commit | e9ce64c8bb7d4094c902f581d37741e0b062c6a0 (patch) | |
tree | dee1f84e6c4544e786d73de8ad66a5b56fc4f446 | |
parent | d5722a7b6c00525a94b503b72f4ae9d66bf8e9a0 (diff) | |
download | org-mode-e9ce64c8bb7d4094c902f581d37741e0b062c6a0.tar.gz |
ob-asymptote: silence byte-compiler
* lisp/ob-asymptote.el (org-babel-asymptote-define-type): silence byte-compiler.
-rw-r--r-- | lisp/ob-asymptote.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/ob-asymptote.el b/lisp/ob-asymptote.el index 2219e03..5bd33f5 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) |