ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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 a string. Otherwise, it is either `real', if some elements are
floats, or `int'." floats, or `int'."
(let* ((type 'int) (let* ((type 'int)
find-type ; for byte-compiler
(find-type (find-type
(lambda (row) (function
(catch 'exit (lambda (row)
(mapc (lambda (el) (catch 'exit
(cond ((listp el) (funcall find-type el)) (mapc (lambda (el)
((stringp el) (throw 'exit (setq type 'string))) (cond ((listp el) (funcall find-type el))
((floatp el) (setq type 'real)))) ((stringp el) (throw 'exit (setq type 'string)))
row))))) ((floatp el) (setq type 'real))))
row))))))
(funcall find-type data) type)) (funcall find-type data) type))
(provide 'ob-asymptote) (provide 'ob-asymptote)