 (defn source-fn-var
   [fn-var]
   (->> fn-var
-       meta ((juxt :ns
-                   (constantly "/")
-                   :name))
+       meta
+       ((juxt :ns
+              (constantly "/")
+              :name))
        (apply str)
        symbol
        clojure.repl/source-fn))



     (def src '(defn f1 [a] (let [[b] [4 5]] {a (-> a (+ b) dec)})))

     '(def f1 (fn* ([a]
                    (let* [vec__21418 [4 5]

                               "$"
                               (clojure.string/join "-"
                                                    path)))
                path
                form
                parent)))

(defn swap-in-path-syms
  ([form func]
   (swap-in-path-syms* form
                       func
                       nil))
  ([form]
   (swap-in-path-syms form
                       #(first %&))))


