[new] get-source: support form meta arg

taoensso · Aug 27, 2024 · 0b8a47a · 0b8a47a
1 parent d656cdd
commit 0b8a47a
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/taoensso/encore.cljc b/src/taoensso/encore.cljc
@@ -1167,8 +1167,12 @@
      "Returns {:keys [ns line column file]} source location given a macro's
      compile-time `&form` and `&env` vals. See also `keep-callsite`."
      {:added "Encore v3.61.0 (2023-07-07)"}
-     [macro-form macro-env]
-     (let [{:keys [line column file]} (meta macro-form)
+     [macro-form-or-meta macro-env]
+     (let [{:keys [line column file]}
+           (if (map? macro-form-or-meta)
+             (do     macro-form-or-meta)
+             (meta   macro-form-or-meta))
+
            file
            (if-not (:ns macro-env)
              *file* ; Compiling clj