I'm currently implementing a custom schema (for reference types). My question: Is it idiomatic to call (m/validate ?schema ?subject {:registry ?my-local-reg}) within the body of a content-dependent schema like in:

(let [;; self-checking keyword spec is necessary to make `[:my/ref :asset/id] work
      local-registry
                 (merge
                   ;; self-validating schemas
                   {:asset/id   (m/schema [:fn #(= :asset/id %)])
                    :grommet/id (m/schema [:fn #(= :grommet/id %)])}
                   
                   ;; for ID values
                   {:or     (m/-or-schema)
                    :int    (m/-int-schema)
                    :string (m/-string-schema)
                    :uuid   (m/-uuid-schema)
                    :id     [:or :int :string :uuid]})
      
      ;; content-dependent schema
      Ref        (m/-simple-schema (fn [props children]
                                     (log/spy :info children)
                                     {:type :my/ref
                                      :pred (fn [x]
                                              (let [attr-schema (first children)
                                                    [id-attr id-val] (first x)]
                                                (and (map? x)
                                                     (= 1 (count x))
                                                     ;; ============== ;;
                                                     ;; Q: is this ok? ;;
                                                     ;; ============== ;;
                                                     (m/validate :id id-val {:registry local-registry})
                                                     (m/validate attr-schema id-attr {:registry local-registry}))))
                                      ;; Don't forget the children count constraints!
                                      :min  1
                                      :max  1}))

      custom-reg {:my/ref Ref}

      registry   (mr/composite-registry
                   m/default-registry
                   local-registry
                   custom-reg)]

  [(m/validate [:my/ref :asset/id] {:asset/id 123} {:registry registry})
   (m/validate [:my/ref :asset/id] {:grommet/id 123} {:registry registry})
   (m/validate [:my/ref [:or :asset/id :grommet/id]] {:asset/id 123} {:registry registry})
   (m/validate [:my/ref [:or :asset/id :grommet/id]] {:other/id 123} {:registry registry})
   ])