ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ob-asymptote: small fix 

* lisp/ob-asymptote.el (org-babel-asymptote-define-type): elisp floats
  are asymptote reals.
This commit is contained in:
Nicolas Goaziou 2011-08-29 23:06:35 +02:00
parent 1b676bcd0f
commit 1421887cde
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ob-asymptote.el
View File

@ -150,7 +150,7 @@ Empty cells are ignored."
DATA is a list. Return type as a symbol. DATA is a list. Return type as a symbol.
The type is `string' if any element in DATA is The type is `string' if any element in DATA is
a string. Otherwise, it is either `float', 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 (find-type
@ -159,7 +159,7 @@ floats, or `int'."
(mapc (lambda (el) (mapc (lambda (el)
(cond ((listp el) (funcall find-type el)) (cond ((listp el) (funcall find-type el))
((stringp el) (throw 'exit (setq type 'string))) ((stringp el) (throw 'exit (setq type 'string)))
((floatp el) (setq type 'float)))) ((floatp el) (setq type 'real))))
row))))) row)))))
(funcall find-type data) type)) (funcall find-type data) type))