Mutually recursive schema-key definitions lead to StackOverflowError

[rublag]

Mutually recursive schema-key definitions lead to StackOverflowError.
Example:

(do                                                                                                                                                                                          
  (require '[zen.core :as zen])                                                                                                                                                              
  (def ztx (zen/new-context))                                                                                                                                                                
  (def mns                                                                                                                                                                                   
    '{ns mns                                                                                                                                                                                 
                                                                                                                                                                                             
      a {:zen/tags #{zen/schema zen/tag}                                                                                                                                                     
         :schema-key {:key :a}                                                                                                                                                               
         :type zen/map                                                                                                                                                                       
         :keys {:a {:type zen/symbol}}}                                                                                                                                                      
                                                                                                                                                                                             
      b {:zen/tags #{zen/schema zen/tag}                                                                                                                                                     
         :schema-key {:key :b}                                                                                                                                                               
         :type zen/map                                                                                                                                                                       
         :keys {:b {:type zen/symbol}}}                                                                                                                                                      
                                                                                                                                                                                             
      c {:zen/tags #{a}                                                                                                                                                                      
         :a b                                                                                                                                                                                
         :b a}})                                                                                                                                                                             
  (zen/load-ns ztx mns))