diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2013-06-06 10:16:01 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2013-06-06 10:16:01 -0600 |
commit | 0508d22bac225ee56b05b9aa0f8a6672162c42f1 (patch) | |
tree | c0ae3d6e38a153ef5da096e051bf29569efb3780 | |
parent | 29e2853870fa888bee8753682639a0939af9035f (diff) | |
download | org-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.el | 2 |
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) |