updated ordered-map constructor to use EMPTY_MAP

quoll · May 23, 2023 · 385469e · 385469e
1 parent b87ee8f
commit 385469e
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/tiara/data.clj b/src/tiara/data.clj
@@ -85,6 +85,8 @@
       (putAll [m] (throw (UnsupportedOperationException.)))
       (remove [k] (throw (UnsupportedOperationException.))))))
 
+(def EMPTY_MAP (vec-map))
+
 (defn vreverse
   "Reverses a vector into a vector. Lists are reversed as usual."
   [v]
@@ -94,7 +96,7 @@
 
 (defn ordered-map
   "Returns a map object that remembers the insertion order, similarly to a java.util.LinkedHashMap"
-  ([] (vec-map))
+  ([] EMPTY_MAP)
   ([& keyvals]
    (let [kv-vec (vreverse
                   (second
@@ -106,5 +108,3 @@
        kv-vec
        (apply hash-map (interleave (map first kv-vec) (range)))))))
 
-(def EMPTY_MAP (vec-map))
-