make -identify-ref-schema private fully fully baked

Author: frenchy64

src/malli/core.cljc

@@ -1928,7 +1928,11 @@
 
 ;; returns an identifier for the :ref schema in the context of its dynamic scope.
 ;; useful for detecting cycles.
-(defn -identify-ref-schema [schema]
+;; copied to malli.generator
+(defn- -identify-ref-schema [schema]
+  ;; TODO mr/-schemas doesn't seem reliable, making defn private for now.
+  ;; a better approach would be to accumulate a 'seen' map from name => ?schema
+  ;; and if we expand the same name again with the same seen map, it's a cycle.
   {:scope (-> schema -options -registry mr/-schemas)
    :name (-ref schema)})
 

src/malli/generator.cljc

@@ -295,8 +295,13 @@
 ;;     ;; (1)
 ;;     [:or [:ref ::a] [:ref ::b]]]]
 
+;; copied to malli.core
+(defn- -identify-ref-schema [schema]
+  {:scope (-> schema m/-options m/-registry mr/-schemas)
+   :name (m/-ref schema)})
+
 (defn -ref-gen [schema options]
-  (let [ref-id (m/-identify-ref-schema schema)]
+  (let [ref-id (-identify-ref-schema schema)]
     (or (force (get-in options [::rec-gen ref-id]))
         (let [scalar-ref-gen (delay (-never-gen options))
               dschema (m/deref schema)]