Add "-schema" suffix to recur refs schema symbols

This suffix is needed to avoid name clashes with recurs to "schema" fields as "schema" name is reserved for StructureDefinition schema. Co-authored-by: KGOH <[email protected]>
zen-lang · Oct 25, 2022 · 0691094 · 0691094
1 parent 0085afd
commit 0691094
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/zen/fhir/loader.clj b/src/zen/fhir/loader.clj
@@ -283,7 +283,7 @@
                          (str/split #"\.")
                          rest
                          (->> (map keyword)))
-          cr-name    (str/join "-" (map name el-path))
+          cr-name    (str/join "-" (concat (map name el-path) ["schema"]))
           cr-symbol  (symbol schema-ns cr-name)]
       (assoc x :recur {:symbol cr-symbol
                        :path el-path}))