auditing pgroups usage

Author: cnuernber

src/tech/v3/dataset/base.clj

@@ -925,13 +925,14 @@
                            end-off (.readLong offsets (inc idx))]
                        (String. string-data start-off (- end-off start-off))))
             str-ary (hamf/object-array n-elems)]
-        (hamf/pgroups n-elems (fn [^long sidx ^long eidx]
-                                (loop [idx sidx]
-                                  (when (< idx eidx)
-                                    (let [start-off (.readLong offsets idx)
-                                          end-off (.readLong offsets (inc idx))]
-                                      (aset str-ary idx (String. string-data start-off (- end-off start-off))))
-                                    (recur (inc idx))))))
+        (dorun
+         (hamf/pgroups n-elems (fn [^long sidx ^long eidx]
+                                 (loop [idx sidx]
+                                   (when (< idx eidx)
+                                     (let [start-off (.readLong offsets idx)
+                                           end-off (.readLong offsets (inc idx))]
+                                       (aset str-ary idx (String. string-data start-off (- end-off start-off))))
+                                     (recur (inc idx)))))))
         (StringTable. (ham_fisted.ArrayLists/toList str-ary) nil int-data))
       (= version 2)
       (let [^List int->str (dtype-list/wrap-container string-table)

src/tech/v3/dataset/string_table.clj

@@ -37,12 +37,11 @@
           ^objects rv (make-array String sz)
           local-int->str int->str
           local-data data]
-      (dorun
-       (hamf/pgroups sz (fn string-table-clone [^long sidx ^long eidx]
-                          (loop [sidx sidx]
-                            (when (< sidx eidx)
-                              (ArrayHelpers/aset rv sidx (.get int->str (.getLong local-data sidx)))
-                              (recur (inc sidx)))))))
+      (dorun (hamf/pgroups sz (fn string-table-clone [^long sidx ^long eidx]
+                                (loop [sidx sidx]
+                                  (when (< sidx eidx)
+                                    (ArrayHelpers/aset rv sidx (.get int->str (.getLong local-data sidx)))
+                                    (recur (inc sidx)))))))
       (ArrayLists/toList rv)))
   PStrTable
   (get-str-table [_this] {:int->str int->str