Remove arrow from tagged-value constructor.

greglook · Jan 19, 2015 · c6f277f · c6f277f
1 parent 878ca11
commit c6f277f
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/src/puget/data.clj b/src/puget/data.clj
@@ -35,7 +35,7 @@
     (str \# tag \space (pr-str value))))
 
 
-(defn ->tagged-value
+(defn tagged-value
   "Creates a generic tagged value record to represent some EDN value. This is
   suitable for use as a default-data-reader function."
   [tag value]
@@ -67,7 +67,7 @@
        ExtendedNotation
        (->edn
          [this#]
-         (->tagged-value ~tag (value-fn# this#))))))
+         (tagged-value ~tag (value-fn# this#))))))
 
 
 (defmacro extend-tagged-str

diff --git a/test/puget/data_test.clj b/test/puget/data_test.clj
@@ -46,13 +46,13 @@
 
 
 (deftest generic-tagged-value
-  (let [data (data/->tagged-value 'foo :bar)
+  (let [data (data/tagged-value 'foo :bar)
         {:keys [tag value]} (data/->edn data)
         string (data/edn-str data)]
     (is (= 'foo tag))
     (is (= :bar value))
     (is (= "#foo :bar" (str data)))
-    (is (= data (edn/read-string {:default data/->tagged-value} string)))))
+    (is (= data (edn/read-string {:default data/tagged-value} string)))))
 
 
 (defrecord TestRecord [x y])

diff --git a/test/puget/printer_test.clj b/test/puget/printer_test.clj
@@ -125,9 +125,9 @@
 
 
 (deftest canonical-tagged-value
-  (let [tv (data/->tagged-value 'foo :bar/baz)]
+  (let [tv (data/tagged-value 'foo :bar/baz)]
     (is (= "#foo :bar/baz" (pprint-str tv))))
-  (let [tv (data/->tagged-value 'frobble/biznar [:foo :bar :baz])]
+  (let [tv (data/tagged-value 'frobble/biznar [:foo :bar :baz])]
     (is (= "#frobble/biznar\n[:foo :bar :baz]" (pprint-str tv)))))