mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 21:37:50 +00:00
Code Releases Activity

use org-babel-result-cond in OCaml code blocks

Browse source 
* lisp/ob-ocaml.el (org-babel-execute:ocaml): Use org-babel-result-cond
  in OCaml code blocks.
This commit is contained in:
Eric Schulte 2013-04-06 10:47:34 -06:00
parent 4b51984fe7
commit f58889f0c1
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ob-ocaml.el
View file

@ -74,7 +74,11 @@
(progn (setq out t) nil))))
(mapcar #'org-babel-trim (reverse raw))))))))
(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
(cdr (assoc :colname-names params)) (cdr (assoc :colnames params)))
(org-babel-pick-name