fix deftype

Author: borkdude

src/sci/impl/deftype.cljc

@@ -92,7 +92,8 @@
   (let [ctx (store/get-ctx)]
     (if (:sci.impl/macroexpanding ctx)
       (cons 'clojure.core/deftype (rest form))
-      (let [factory-fn-str (str "->" record-name)
+      (let [fields (mapv #(with-meta (munge %) (meta %)) fields)
+            factory-fn-str (str "->" record-name)
             factory-fn-sym (symbol factory-fn-str)
             rec-type (symbol (str (munge (utils/current-ns-name)) "." record-name))
             protocol-impls (utils/split-when symbol? raw-protocol-impls)

test/sci/interop_test.cljc

@@ -379,3 +379,7 @@
      (is (= 1 (sci/eval-string "(def x #js {:foo_bar 1}) (.-foo-bar x)" {:classes {:allow :all}})))
      (is (= 1 (sci/eval-string "(def x #js {:foo_bar (fn [] 1)}) (.foo-bar x)" {:classes {:allow :all}})))
      (is (= {:foo_bar 1} (sci/eval-string "(js->clj (doto #js {} (set! -foo-bar 1)) :keywordize-keys true)" {:classes {:allow :all}})))))
+
+(deftest issue-987-deftype-munged-fields-test
+  (is (= 1 (sci/eval-string "(deftype Foo [foo-bar]) (.-foo-bar (->Foo 1))" {:classes {:allow :all}})))
+  (is (= 1 (sci/eval-string "(deftype Foo [foo-bar]) (.-foo_bar (->Foo 1))" {:classes {:allow :all}}))))