summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2013-06-06 10:16:01 -0600
committerEric Schulte <schulte.eric@gmail.com>2013-06-06 10:16:01 -0600
commit0508d22bac225ee56b05b9aa0f8a6672162c42f1 (patch)
treec0ae3d6e38a153ef5da096e051bf29569efb3780
parent29e2853870fa888bee8753682639a0939af9035f (diff)
downloadorg-mode-0508d22bac225ee56b05b9aa0f8a6672162c42f1.tar.gz
more careful check if values are matrices
* lisp/ob-fortran.el (org-babel-fortran-var-to-fortran): More careful check if values are matrices.
-rw-r--r--lisp/ob-fortran.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ob-fortran.el b/lisp/ob-fortran.el
index a379273..cdb7fc7 100644
--- a/lisp/ob-fortran.el
+++ b/lisp/ob-fortran.el
@@ -144,7 +144,7 @@ of the same value."
(format "character(len=%d), parameter :: %S = '%s'\n"
(length val) var val))
;; val is a matrix
- ((and (listp val) (listp (car val)))
+ ((and (listp val) (org-every #'listp val))
(format "real, parameter :: %S(%d,%d) = transpose( reshape( %s , (/ %d, %d /) ) )\n"
var (length val) (length (car val))
(org-babel-fortran-transform-list val)