mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-30 04:27:48 +00:00
use org-babel-result-cond in OCaml code blocks
* lisp/ob-ocaml.el (org-babel-execute:ocaml): Use org-babel-result-cond in OCaml code blocks.
This commit is contained in:
parent
4b51984fe7
commit
f58889f0c1
|
@ -74,7 +74,11 @@
|
||||||
(progn (setq out t) nil))))
|
(progn (setq out t) nil))))
|
||||||
(mapcar #'org-babel-trim (reverse raw))))))))
|
(mapcar #'org-babel-trim (reverse raw))))))))
|
||||||
(org-babel-reassemble-table
|
(org-babel-reassemble-table
|
||||||
(org-babel-ocaml-parse-output (org-babel-trim clean))
|
(let ((raw (org-babel-trim clean)))
|
||||||
|
(org-babel-result-cond (cdr (assoc :result-params params))
|
||||||
|
;; strip type information from output
|
||||||
|
(if (string-match "= \\(.+\\)$" raw) (match-string 1 raw) raw)
|
||||||
|
(org-babel-ocaml-parse-output raw)))
|
||||||
(org-babel-pick-name
|
(org-babel-pick-name
|
||||||
(cdr (assoc :colname-names params)) (cdr (assoc :colnames params)))
|
(cdr (assoc :colname-names params)) (cdr (assoc :colnames params)))
|
||||||
(org-babel-pick-name
|
(org-babel-pick-name
|
||||||
|
|
Loading…
Reference in a new issue