Explorar o código

more careful check if values are matrices

* lisp/ob-fortran.el (org-babel-fortran-var-to-fortran): More careful
  check if values are matrices.
Eric Schulte %!s(int64=12) %!d(string=hai) anos
pai
achega
0508d22bac
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      lisp/ob-fortran.el

+ 1 - 1
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)