浏览代码

org-babel-expand-body:clojure

Eric Schulte 15 年之前
父节点
当前提交
6d61edd1ea
共有 1 个文件被更改,包括 5 次插入2 次删除
  1. 5 2
      contrib/babel/lisp/langs/org-babel-clojure.el

+ 5 - 2
contrib/babel/lisp/langs/org-babel-clojure.el

@@ -263,11 +263,14 @@ last statement in BODY, as elisp."
       (org-babel-clojure-evaluate-session buffer body result-type)
     (org-babel-clojure-evaluate-external-process buffer body result-type)))
 
+(defun org-babel-expand-body:clojure (body params &optional processed-params)
+  (org-babel-clojure-build-full-form
+   body (second (or processed-params (org-babel-process-params params)))))
+
 (defun org-babel-execute:clojure (body params)
   "Execute a block of Clojure code with org-babel."
   (let* ((processed-params (org-babel-process-params params))
-         (vars (second processed-params))
-         (body (org-babel-clojure-build-full-form body vars))
+         (body (org-babel-expand-body:clojure body params processed-params))
          (session (org-babel-clojure-initiate-session (first processed-params))))
     (org-babel-reassemble-table
      (org-babel-clojure-evaluate session body (fourth processed-params))