class survives reloading

Author: borkdude

src/sci/impl/deftype.cljc

@@ -79,7 +79,8 @@
                            (write-all w (clojure-str this))))])
 
   types/IBox
-  (getVal [_] ext-map))
+  (getVal [_] ext-map)
+  (setVal [_ _]))
 
 (defn ->type-impl [rec-name type var m]
   (SciType. rec-name type var m))

src/sci/impl/namespaces.cljc

@@ -797,7 +797,12 @@
 ;;;; Record impl
 
 (defn -create-type [data]
-  (new sci.lang.Type data nil nil))
+  (let [t (new sci.lang.Type data nil nil)
+        ctx (store/get-ctx)
+        t-name (:sci.impl/type-name data)
+        env (:env ctx)]
+    (swap! env assoc-in [:types t-name] t)
+    t))
 
 #_(defn -reg-key! [rec-type k v]
     (when (instance? sci.lang.Type rec-type)

src/sci/impl/records.cljc

@@ -349,15 +349,16 @@
    A protocol is represented by a map with :ns, :methods and optionally :class. This is also an implementation detail."
   ;; TODO: we should probably use munging here for namespaces with hyphens in them.
   ([ctx sym]
-   (let [sym-str (str sym)
-         last-dot (str/last-index-of sym-str ".")
-         class-name (if last-dot
-                      (subs sym-str (inc last-dot) (count sym-str))
-                      sym-str)
-         namespace (if last-dot
-                     (symbol (subs sym-str 0 last-dot))
-                     (utils/current-ns-name))]
-     (resolve-record-or-protocol-class ctx namespace (symbol class-name))))
+   (or (some-> ctx :env deref :types (get sym))
+       (let [sym-str (str sym)
+               last-dot (str/last-index-of sym-str ".")
+               class-name (if last-dot
+                            (subs sym-str (inc last-dot) (count sym-str))
+                            sym-str)
+               namespace (if last-dot
+                           (symbol (subs sym-str 0 last-dot))
+                           (utils/current-ns-name))]
+           (resolve-record-or-protocol-class ctx namespace (symbol class-name)))))
   ([ctx package class]
    (let [namespace (-> package str (str/replace "_" "-") symbol)]
      (when-let [sci-var (let [ns (get-in @(:env ctx) [:namespaces namespace])]

test/sci/namespaces_test.cljc

@@ -382,3 +382,6 @@ bar/bar"}
                                  (when (= 'foo.bar namespace)
                                    {:source "(ns foo.bar) (def x :success)"
                                     :file "foo/bar.clj"}))})))))
+
+(deftest class-survives-remove-ns-test
+  (is (true? (sci/eval-string "(ns foo) (deftype Dude []) (ns dude) (remove-ns 'foo) (some? foo.Dude)"))))