diff options
Diffstat (limited to 'lisp/org/ob-java.el')
| -rw-r--r-- | lisp/org/ob-java.el | 25 |
1 files changed, 12 insertions, 13 deletions
diff --git a/lisp/org/ob-java.el b/lisp/org/ob-java.el index c0e9a5384ce..37ac8daea5d 100644 --- a/lisp/org/ob-java.el +++ b/lisp/org/ob-java.el | |||
| @@ -55,19 +55,18 @@ | |||
| 55 | ;; created package-name directories if missing | 55 | ;; created package-name directories if missing |
| 56 | (unless (or (not packagename) (file-exists-p packagename)) | 56 | (unless (or (not packagename) (file-exists-p packagename)) |
| 57 | (make-directory packagename 'parents)) | 57 | (make-directory packagename 'parents)) |
| 58 | ((lambda (results) | 58 | (let ((results (org-babel-eval (concat org-babel-java-command |
| 59 | (org-babel-reassemble-table | 59 | " " cmdline " " classname) ""))) |
| 60 | (org-babel-result-cond (cdr (assoc :result-params params)) | 60 | (org-babel-reassemble-table |
| 61 | (org-babel-read results) | 61 | (org-babel-result-cond (cdr (assoc :result-params params)) |
| 62 | (let ((tmp-file (org-babel-temp-file "c-"))) | 62 | (org-babel-read results) |
| 63 | (with-temp-file tmp-file (insert results)) | 63 | (let ((tmp-file (org-babel-temp-file "c-"))) |
| 64 | (org-babel-import-elisp-from-file tmp-file))) | 64 | (with-temp-file tmp-file (insert results)) |
| 65 | (org-babel-pick-name | 65 | (org-babel-import-elisp-from-file tmp-file))) |
| 66 | (cdr (assoc :colname-names params)) (cdr (assoc :colnames params))) | 66 | (org-babel-pick-name |
| 67 | (org-babel-pick-name | 67 | (cdr (assoc :colname-names params)) (cdr (assoc :colnames params))) |
| 68 | (cdr (assoc :rowname-names params)) (cdr (assoc :rownames params))))) | 68 | (org-babel-pick-name |
| 69 | (org-babel-eval (concat org-babel-java-command | 69 | (cdr (assoc :rowname-names params)) (cdr (assoc :rownames params))))))) |
| 70 | " " cmdline " " classname) "")))) | ||
| 71 | 70 | ||
| 72 | (provide 'ob-java) | 71 | (provide 'ob-java) |
| 73 | 72 | ||