Remove automatic TaggedValue constructors.

greglook · Mar 7, 2015 · 58cbe72 · 58cbe72
1 parent e8b4e2f
commit 58cbe72
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/puget/data.clj b/src/puget/data.clj
@@ -33,6 +33,11 @@
     (str \# tag \space (pr-str form))))
 
 
+;; Remove automatic constructor functions.
+(ns-unmap *ns* '->TaggedLiteral)
+(ns-unmap *ns* 'map->TaggedLiteral)
+
+
 (defmethod print-method TaggedLiteral
   [v ^java.io.Writer w]
   (.write w (str v)))
@@ -43,7 +48,7 @@
   suitable for use as a default-data-reader function."
   [tag value]
   {:pre [(symbol? tag)]}
-  (->TaggedLiteral tag value))
+  (TaggedLiteral. tag value))
 
 
 (defn tagged-literal?