diff options
author | Tim Cross <theophilusx@gmail.com> | 2017-03-07 09:00:27 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2017-03-07 09:09:28 +0100 |
commit | 7ed93eba5a279cb4317c1aac6392ba27e43709f0 (patch) | |
tree | e83715394940c5438600f32c9394e3ed70936901 | |
parent | d73942cf99c8bf610e56b777615f2c5e09cb0b0b (diff) | |
download | org-mode-7ed93eba5a279cb4317c1aac6392ba27e43709f0.tar.gz |
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
-rw-r--r-- | lisp/ob-clojure.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el index d407105..ada35a4 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)) |