From f58889f0c127fb6f3e3cd02da2e758678eed2ba3 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 6 Apr 2013 10:47:34 -0600 Subject: [PATCH] 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. --- lisp/ob-ocaml.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ob-ocaml.el b/lisp/ob-ocaml.el index 9390fab6c..6a839080b 100644 --- a/lisp/ob-ocaml.el +++ b/lisp/ob-ocaml.el @@ -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