From fd497eb25a9d29f6eb5ef0acd4bd0c995c7a8dde Mon Sep 17 00:00:00 2001 From: Bjarte Johansen Date: Sat, 30 May 2015 17:54:09 +0200 Subject: [PATCH] Need to pass params to cond --- ob-prolog.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ob-prolog.el b/ob-prolog.el index d0e9aad..5a3c508 100644 --- a/ob-prolog.el +++ b/ob-prolog.el @@ -110,7 +110,7 @@ Example: "Execute a block of Prolog code with org-babel. This function is called by `org-babel-execute-src-block'" (message "executing Prolog source code block") - (let* ((params (org-babel-process-params params)) + (let* ((result-params (cdr (assq :result-params params))) (session (cdr (assq :session params))) (goal (org-babel-prolog--parse-goal (cdr (assq :goal params)))) @@ -122,8 +122,8 @@ called by `org-babel-execute-src-block'" (org-babel-prolog-evaluate-session session goal full-body)))) (org-babel-reassemble-table - (org-babel-result-cond - results + (org-babel-result-cond result-params + results (let ((tmp (org-babel-temp-file "prolog-results-"))) (with-temp-file tmp (insert results)) (org-babel-import-elisp-from-file tmp)))