try var roundrobin

src/malli/edn.cljc

@@ -4,7 +4,7 @@
             [malli.core :as m]))
 
 (defn -parse-string [x]
-  (edamame/parse-string x {:dispatch {\# {\" #(re-pattern %)}}}))
+  (edamame/parse-string x {:var resolve, :regex true, :fn true}))
 
 (defn write-string
   ([?schema]

test/malli/core_test.cljc

@@ -2977,7 +2977,7 @@
                        (prefixer "h")
                        (prefixer "i")) "xxx"))))))
 
-(deftest -issue-925-test
+(deftest issue-925-test
   (testing "order is retained with catn parse+unparse"
     (let [schema [:catn
                   [:a :int]
@@ -2992,7 +2992,7 @@
           input [1 2 3 4 5 6 7 8 9]]
       (is (= input (->> input (m/parse schema) (m/unparse schema)))))))
 
-(deftest -issue-937-test
+(deftest issue-937-test
   (testing ":altn can handle just one child entry when nested"
     (let [schema [:* [:altn [:a [:= :a]]]]
           value [:a]]
@@ -3001,3 +3001,21 @@
       (is (= [[:a :a]] (m/parse schema value)))
       (is (= value (m/unparse schema (m/parse schema value))))
       (is (= value (m/decode schema value nil))))))
+
+(def UserId :string)
+
+(def User
+  [:map
+   [:id #'UserId]
+   [:friends {:optional true} [:set [:ref #'User]]]])
+
+(deftest roundrobin-var-references
+  (let [registry (mr/composite-registry
+                  (m/default-schemas)
+                  (mr/var-registry))
+        options {:registry registry}
+        schema (m/schema User options)]
+    (is (as-> schema $
+          (edn/write-string $)
+          (edn/read-string $ options)
+          (every? (m/validator $) (mg/sample schema))))))