From 7ed93eba5a279cb4317c1aac6392ba27e43709f0 Mon Sep 17 00:00:00 2001 From: Tim Cross Date: Tue, 7 Mar 2017 09:00:27 +0100 Subject: [PATCH] Fix incorrect argument call in ob-clojure.el * lisp/ob-clojure.el (org-babel-execute:clojure): Use `cider-current-ns' instead of `cider-current-session'. org-babel-execute-clojure was calling nrepl-sync-request:eval and nrepl-request:eval with the session ID as the 3rd argument when the functions expected a clojure namespace. TINYCHANGE --- lisp/ob-clojure.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el index d40710513..ada35a4b3 100644 --- a/lisp/ob-clojure.el +++ b/lisp/ob-clojure.el @@ -43,7 +43,7 @@ (require 'ob) (declare-function cider-current-connection "ext:cider-client" (&optional type)) -(declare-function cider-current-session "ext:cider-client" ()) +(declare-function cider-current-ns "ext:cider-client" ()) (declare-function nrepl--merge "ext:nrepl-client" (dict1 dict2)) (declare-function nrepl-dict-get "ext:nrepl-client" (dict key)) (declare-function nrepl-dict-put "ext:nrepl-client" (dict key value)) @@ -118,7 +118,7 @@ using the :show-process parameter." org-babel-clojure-sync-nrepl-timeout)) (nrepl-sync-request:eval expanded (cider-current-connection) - (cider-current-session)))) + (cider-current-ns)))) (setq result (concat (nrepl-dict-get response @@ -153,7 +153,7 @@ using the :show-process parameter." ;; Update the status of the nREPL output session. (setq status (nrepl-dict-get response "status"))) (cider-current-connection) - (cider-current-session)) + (cider-current-ns)) ;; Wait until the nREPL code finished to be processed. (while (not (member "done" status))