make defstruct robust against dangling and unbound vars

2024-10-24 11:45:17 +02:00 · 2024-10-24 11:45:17 +02:00 · b6f1e44ce0
commit b6f1e44ce0
parent 020e10264f
1 changed files with 1 additions and 0 deletions
--- a/src/clj/coffi/mem.clj
+++ b/src/clj/coffi/mem.clj
@ -1938,6 +1938,7 @@
                                           (map #(update % 1 keyword))
                                           (map reverse)
                                           (map vec))])]
+        (if (resolve typename) (ns-unmap *ns* typename))
        (register-new-struct-deserialization coffi-typename struct-layout)
        (register-new-struct-serialization   coffi-typename struct-layout)
        `(do