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