summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <n.goaziou@gmail.com>2011-09-25 16:19:27 +0200
committerNicolas Goaziou <n.goaziou@gmail.com>2011-09-25 16:19:27 +0200
commite9ce64c8bb7d4094c902f581d37741e0b062c6a0 (patch)
treedee1f84e6c4544e786d73de8ad66a5b56fc4f446
parentd5722a7b6c00525a94b503b72f4ae9d66bf8e9a0 (diff)
downloadorg-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.el16
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)