-dynamic (var)

metosin · Apr 22, 2024 · 3e5fd2e · 3e5fd2e
1 parent 2e798e6
commit 3e5fd2e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/compojure/api/meta.clj b/src/compojure/api/meta.clj
@@ -814,7 +814,9 @@
   (boolean
     (or (and (seq? form)
              (= 2 (count form))
-             (= 'var (first form)))
+             (= 'var (first form))
+             (when-some [v (resolve-var &env (second form))]
+               (not (:dynamic (meta v)))))
         (when (symbol? form)
           (let [r (resolve &env form)]
             (or (class? r)