fix handling of records with ALL in cljs

src/clj/com/rpl/specter/navs.cljc

@@ -60,6 +60,13 @@
 (defn- all-transform-list [structure next-fn]
   (doall (sequence (comp (map next-fn) (filter not-NONE?)) structure)))
 
+(defn- all-transform-record [structure next-fn]
+  (reduce
+    (fn [res kv] (conj res (next-fn kv)))
+    structure
+    structure
+    ))
+
 (extend-protocol AllTransformProtocol
   nil
   (all-transform [structure next-fn]
@@ -129,13 +136,10 @@
   (all-transform [structure next-fn]
     (non-transient-map-all-transform structure next-fn (empty structure)))
 
-  #?(:clj clojure.lang.IRecord :cljs cljs.core/IRecord)
+  #?(:clj clojure.lang.IRecord)
+  #?(:clj
   (all-transform [structure next-fn]
-    (reduce
-      (fn [res kv] (conj res (next-fn kv)))
-      structure
-      structure
-      ))
+    (all-transform-record structure next-fn)))
 
   #?(:clj clojure.lang.PersistentHashMap :cljs cljs.core/PersistentHashMap)
   (all-transform [structure next-fn]
@@ -184,6 +188,9 @@
   #?(:cljs default)
   #?(:cljs
      (all-transform [structure next-fn]
+       (if (record? structure)
+         ;; this case is solely for cljs since extending to IRecord doesn't work for cljs
+         (all-transform-record structure next-fn)
          (let [empty-structure (empty structure)]
            (cond
              (and (list? empty-structure) (not (queue? empty-structure)))
@@ -202,7 +209,7 @@
              :else
              (into empty-structure
                    (comp (map next-fn) (filter not-NONE?))
-                 structure))))))
+                   structure)))))))