CLJS-1577: Self-host: syntax-quote resolves on dot forms

If you try to evaluate a syntax-quoted dot form, as in `.x, by default
symbol resolution will be applied to the dot form .x, yielding /x.
Instead, we need this to yield just .x. To do this, revise cljs.js
to check for this case before delegating to cljs.analyzer/resolve-symbol.

Author: mfikes

src/main/cljs/cljs/js.cljs

@@ -38,6 +38,12 @@
                    0 (- (count file) 5))]
     (symbol (demunge lib-name))))
 
+(defn- resolve-symbol
+  [sym]
+  (if (string/starts-with? (str sym) ".")
+    sym
+    (ana/resolve-symbol sym)))
+
 (defn- atom? [x]
   (instance? Atom x))
 
@@ -444,7 +450,7 @@
                  *ns*                   (create-ns ns)
                  ana/*passes*           (:*passes* bound-vars)
                  r/*data-readers*       (:*data-readers* bound-vars)
-                 r/resolve-symbol       ana/resolve-symbol
+                 r/resolve-symbol       resolve-symbol
                  comp/*source-map-data* (:*sm-data* bound-vars)]
          (let [res (try
                      {:value (r/read {:eof eof :read-cond :allow :features #{:cljs}} rdr)}
@@ -531,7 +537,7 @@
               ana/*cljs-static-fns*  (:static-fns opts)
               *ns*                   (create-ns (:*cljs-ns* bound-vars))
               r/*data-readers*       (:*data-readers* bound-vars)
-              r/resolve-symbol       ana/resolve-symbol
+              r/resolve-symbol       resolve-symbol
               comp/*source-map-data* (:*sm-data* bound-vars)]
       (let [aenv (ana/empty-env)
             aenv (cond-> (assoc aenv :ns (ana/get-namespace ana/*cljs-ns*))
@@ -606,7 +612,7 @@
                  ana/*cljs-static-fns*  (:static-fns opts)
                  *ns*                   (create-ns ns)
                  r/*data-readers*       (:*data-readers* bound-vars)
-                 r/resolve-symbol       ana/resolve-symbol
+                 r/resolve-symbol       resolve-symbol
                  comp/*source-map-data* (:*sm-data* bound-vars)]
          (let [res (try
                      {:value (r/read {:eof eof :read-cond :allow :features #{:cljs}} rdr)}
@@ -704,7 +710,7 @@
                  ana/*cljs-static-fns*  (:static-fns opts)
                  *ns*                   (create-ns ns)
                  r/*data-readers*       (:*data-readers* bound-vars)
-                 r/resolve-symbol       ana/resolve-symbol
+                 r/resolve-symbol       resolve-symbol
                  comp/*source-map-data* (:*sm-data* bound-vars)]
          (let [res (try
                      {:value (r/read {:eof eof :read-cond :allow :features #{:cljs}} rdr)}

src/test/self/self_host/test.cljs

@@ -509,6 +509,32 @@
       (is (nil? error))
       (is (= "90°" value)))))
 
+(deftest test-CLJS-1577
+  (cljs/analyze-str st
+    "`.x"
+    nil
+    {:eval    node-eval
+     :context :expr}
+    (fn [{:keys [error value]}]
+      (is (nil? error))
+      (is (= '.x (:form value)))))
+  (cljs/compile-str st
+    "`.x"
+    nil
+    {:eval    node-eval
+     :context :expr}
+    (fn [{:keys [error value]}]
+      (is (nil? error))
+      (is (string/starts-with? value "new cljs.core.Symbol(null,\".x\",\".x\","))))
+  (cljs/eval-str st
+    "`.x"
+    nil
+    {:eval    node-eval
+     :context :expr}
+    (fn [{:keys [error value]}]
+      (is (nil? error))
+      (is (= '.x value)))))
+
 (deftest test-CLJS-1584
   (cljs/eval-str st
     "(condp = 1 1 2)"