all-ns doesn't work with all envs?

metosin · Jan 5, 2024 · e5146b2 · e5146b2
1 parent 9e24c3b
commit e5146b2
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/src/malli/edn.cljc b/src/malli/edn.cljc
@@ -4,7 +4,7 @@
             [malli.core :as m]))
 
 (defn -parse-string [x]
-  (edamame/parse-string x {:var resolve, :regex true, :fn true}))
+  (edamame/parse-string x {:regex true, :fn true, :var identity}))
 
 (defn write-string
   ([?schema]

diff --git a/src/malli/registry.cljc b/src/malli/registry.cljc
@@ -63,10 +63,15 @@
     (-schema [_ type] (-schema (registry @db) type))
     (-schemas [_] (-schemas (registry @db)))))
 
+(defn -find-loaded-var [s]
+  (->> (all-ns) (mapcat ns-publics) (some (fn [[_ v]] (if (= s (.toSymbol v)) v)))))
+
 (defn var-registry []
   (reify
     Registry
-    (-schema [_ type] (if (var? type) @type))
+    (-schema [_ type] (cond
+                        (var? type) @type
+                        (and (list? type) (= 'var (first type)) (= 2 (count type))) (-find-loaded-var (second type))))
     (-schemas [_])))
 
 (def ^:dynamic *registry* {})