Browse Source

org-babel-clojure: minor bug fixes

Eric Schulte 15 years ago
parent
commit
103e0c4bf5
1 changed files with 7 additions and 4 deletions
  1. 7 4
      contrib/babel/lisp/langs/org-babel-clojure.el

+ 7 - 4
contrib/babel/lisp/langs/org-babel-clojure.el

@@ -159,16 +159,19 @@ then create.  Return the initialized session."
       (output
        (with-temp-buffer
          (insert body)
-         (shell-command-on-region (point-min) (point-max)
-                                  (format "%s - " (string-join " " (babel-clojure-cmd)))
-                                  'replace)
+         (shell-command-on-region
+          (point-min) (point-max)
+          (format "%s - " (mapconcat #'identity (org-babel-clojure-babel-clojure-cmd) " "))
+          'replace)
          (buffer-string)))
       (value
        (let ((tmp-src-file (make-temp-file "clojure_babel_input_"))
              (tmp-results-file (make-temp-file "clojure_babel_results_")))                 
          (with-temp-file tmp-src-file
            (insert (format org-babel-clojure-wrapper-method body tmp-results-file tmp-results-file)))
-         (shell-command (format "%s %s" (string-join " " (babel-clojure-cmd)) tmp-src-file))
+         (shell-command
+          (format "%s %s" (mapconcat #'identity (org-babel-clojure-babel-clojure-cmd) " ")
+                  tmp-src-file))
          (org-babel-clojure-table-or-string
           (with-temp-buffer (insert-file-contents tmp-results-file) (buffer-string))))))))