From 3dae48799a6b01be1f8f222472699af32c1ea00f Mon Sep 17 00:00:00 2001 From: Thomas Heller Date: Tue, 12 Feb 2013 12:52:56 +0100 Subject: [PATCH] print records with correct namespace --- src/clj/cljs/core.clj | 3 ++- test/cljs/cljs/core_test.cljs | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/clj/cljs/core.clj b/src/clj/cljs/core.clj index 8b5ce29..84e41f8 100644 --- a/src/clj/cljs/core.clj +++ b/src/clj/cljs/core.clj @@ -662,6 +662,7 @@ (let [hinted-fields fields fields (vec (map #(with-meta % nil) fields)) base-fields fields + pr-open (core/str "#" (.getNamespace rname) "." (.getName rname) "{") fields (conj fields '__meta '__extmap (with-meta '__hash {:mutable true}))] (let [gs (gensym) ksym (gensym "k") @@ -718,7 +719,7 @@ `(~'-pr-writer [this# writer# opts#] (let [pr-pair# (fn [keyval#] (pr-sequential-writer writer# pr-writer "" " " "" opts# keyval#))] (pr-sequential-writer - writer# pr-pair# (core/str "#" ~(name rname) "{") ", " "}" opts# + writer# pr-pair# ~pr-open ", " "}" opts# (concat [~@(map #(list `vector (keyword %) %) base-fields)] ~'__extmap)))) ]) diff --git a/test/cljs/cljs/core_test.cljs b/test/cljs/cljs/core_test.cljs index 10a99fa..4c0c6c4 100644 --- a/test/cljs/cljs/core_test.cljs +++ b/test/cljs/cljs/core_test.cljs @@ -1730,7 +1730,7 @@ ;;; pr-str records (defrecord PrintMe [a b]) - (assert (= (pr-str (PrintMe. 1 2)) "#PrintMe{:a 1, :b 2}")) + (assert (= (pr-str (PrintMe. 1 2)) "#cljs.core-test.PrintMe{:a 1, :b 2}")) ;;; pr-str inst -- 1.7.6