[elpa] externals/org 23eb697df6 1/2: ob-clojure.el: Fix comments getting deleted on tangling of clojure source blocks

[ELPA Syncer]

branch: externals/org
commit 23eb697df6b2b8c8c0c92d984cb1724a2d70d2e6
Author: Anoop G R <anoopemacs@gmail.com>
Commit: Ihor Radchenko <yantar92@posteo.net>

    ob-clojure.el: Fix comments getting deleted on tangling of clojure source 
blocks
    
    * lisp/ob-clojure.el (org-babel-expand-body:clojure): Leave the
    comments intact if the code block does not have :var.
    
    Reported-by: "Anoop G R" <anoopemacs@gmail.com>
    Link: https://list.orgmode.org/874j5azk2p.fsf@localhost/T/#t
    
    TINYCHANGE
---
 lisp/ob-clojure.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/ob-clojure.el b/lisp/ob-clojure.el
index 98a66d1ec5..fdb0a75931 100644
--- a/lisp/ob-clojure.el
+++ b/lisp/ob-clojure.el
@@ -155,21 +155,21 @@ or set the `:backend' header argument"))))
         (result-params (cdr (assq :result-params params)))
         (print-level nil)
         (print-length nil)
-        ;; Remove comments, they break (let [...] ...) bindings
-        (body (replace-regexp-in-string "^[    ]*;+.*$" "" body))
         (body (org-trim
                (concat
                 ;; Source block specified namespace :ns.
                 (and (cdr (assq :ns params)) (format "(ns %s)\n" ns))
                 ;; Variables binding.
                 (if (null vars) (org-trim body)
-                  (format "(let [%s]\n%s)"
+                   ;; Remove comments, they break (let [...] ...) bindings
+                   (let ((body (replace-regexp-in-string "^[    ]*;+.*$" "" 
body)))
+                     (format "(let [%s]\n%s)"
                           (mapconcat
                            (lambda (var)
                              (format "%S '%S" (car var) (cdr var)))
                            vars
                            "\n      ")
-                          body))))))
+                          body)))))))
     ;; If the result param is set to "output" we don't have to do
     ;; anything special and just let the backend handle everything
     (if (member "output" result-params)