CLJS-2261: Issue using interop record constructors in macros namespaces

Also bumps tools.reader to 1.0.5 which has the fix

Author: anmonteiro

pom.template.xml

@@ -50,7 +50,7 @@
         <dependency>
             <groupId>org.clojure</groupId>
             <artifactId>tools.reader</artifactId>
-            <version>1.0.3</version>
+            <version>1.0.5</version>
         </dependency>
         <dependency>
             <groupId>org.clojure</groupId>

project.clj

@@ -10,7 +10,7 @@
   :test-paths ["src/test/clojure" "src/test/cljs" "src/test/self" "src/test/cljs_cp"]
   :dependencies [[org.clojure/clojure "1.8.0"]
                  [org.clojure/data.json "0.2.6"]
-                 [org.clojure/tools.reader "1.0.3"]
+                 [org.clojure/tools.reader "1.0.5"]
                  [org.clojure/test.check "0.10.0-alpha2" :scope "test"]
                  [com.cognitect/transit-clj "0.8.300"]
                  [org.clojure/google-closure-library "0.0-20170519-fa0499ef"]

script/bootstrap

@@ -10,7 +10,7 @@ DJSON_RELEASE="0.2.6"
 TRANSIT_RELEASE="0.8.300"
 GCLOSURE_LIB_RELEASE="0.0-20160609-f42b4a24"
 RHINO_RELEASE="1_7R5"
-TREADER_RELEASE="1.0.3"
+TREADER_RELEASE="1.0.5"
 TEST_CHECK_RELEASE="0.10.0-alpha2"
 
 # check dependencies

script/noderepljs

@@ -5,7 +5,7 @@ if [ "$CLOJURESCRIPT_HOME" = "" ]; then
 fi
 
 CLJSC_CP=''
-for next in lib/*: src/main/clojure: src/main/cljs: test/cljs; do
+for next in lib/*: src/main/clojure: src/main/cljs: src/test/cljs; do
   CLJSC_CP=$CLJSC_CP$CLOJURESCRIPT_HOME'/'$next
 done
 

src/test/cljs/cljs/macro_test/cljs2261.clj

@@ -0,0 +1,4 @@
+(ns cljs.macro-test.cljs2261)
+
+(defmacro cake []
+  `(X.))

src/test/cljs/cljs/macro_test/cljs2261.cljs

@@ -0,0 +1,3 @@
+(ns cljs.macro-test.cljs2261)
+
+(defrecord X [])

src/test/self/self_host/test.cljs

@@ -1129,6 +1129,53 @@
             (is (some? (re-find #"foo\.core\.global\$module\$calculator = goog.global.Calculator;\snull;" source)))
             (inc! l)))))))
 
+(deftest test-cljs-2261
+  (async done
+    (let [st (cljs/empty-state)
+          l  (latch 2 done)]
+      (cljs/eval st '(ns bar.core2261a
+                       (:require [foo.core2261a :refer-macros [cake]]))
+        {:ns      'cljs.user
+         :eval    node-eval
+         :context :expr
+         :load    (fn [{:keys [macros]} cb]
+                    (if macros
+                      (cb {:lang   :clj
+                           :source "(ns foo.core2261a) (defmacro cake [] `(->X))"})
+                      (cb {:lang   :clj
+                           :source "(ns foo.core2261a) (defrecord X [])"})))}
+        (fn [{:keys [error]}]
+          (is (nil? error))
+          (cljs/eval-str st "(pr-str (cake))" nil
+            {:ns      'bar.core2261a
+             :eval    node-eval
+             :context :expr}
+            (fn [{:keys [error value]}]
+              (is (nil? error))
+              (is (= "#foo.core2261a.X{}" value))
+              (inc! l)))))
+      (cljs/eval st '(ns bar.core2261b
+                       (:require [foo.core2261b :refer-macros [cake]]))
+        {:ns      'cljs.user
+         :eval    node-eval
+         :context :expr
+         :load    (fn [{:keys [macros]} cb]
+                    (if macros
+                      (cb {:lang   :clj
+                           :source "(ns foo.core2261b) (defmacro cake [] `(X.))"})
+                      (cb {:lang   :clj
+                           :source "(ns foo.core2261b) (defrecord X [])"})))}
+        (fn [{:keys [error]}]
+          (is (nil? error))
+          (cljs/eval-str st "(pr-str (cake))" nil
+            {:ns      'bar.core2261b
+             :eval    node-eval
+             :context :expr}
+            (fn [{:keys [error value]}]
+              (is (nil? error))
+              (is (= "#foo.core2261b.X{}" value))
+              (inc! l))))))))
+
 (defn -main [& args]
   (run-tests))