tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ob-asymptote: silence byte-compiler 

* lisp/ob-asymptote.el (org-babel-asymptote-define-type): silence byte-compiler.
This commit is contained in:
Nicolas Goaziou 2011-09-25 16:19:27 +02:00
parent d5722a7b6c
commit e9ce64c8bb
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/ob-asymptote.el
View File

@ -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)