CLJS-2024: Self-host: find-ns-obj broken for namespaces with 'a' as the first segment

Author: anmonteiro

src/main/cljs/cljs/core.cljs

@@ -10852,7 +10852,9 @@ reduces them without incurring seq initialization"
                   ; may throw ReferenceError.
                   (find-ns-obj*
                     (try
-                      (js/eval (first segs))
+                      (let [ctxt (js/eval (first segs))]
+                        (when (and ctxt (object? ctxt))
+                          ctxt))
                       (catch js/ReferenceError e
                         nil))
                     (next segs))

src/test/self/self_host/test.cljs

@@ -877,6 +877,20 @@
           (is (nil? error))
           (inc! l))))))
 
+(deftest test-cljs-2024
+  (async done
+    (let [st (cljs/empty-state)
+          l (latch 1 done)]
+      (cljs/eval-str
+        st
+        "(find-ns-obj 'a.x)"
+        nil
+        {:context :expr
+         :eval node-eval}
+        (fn [{:keys [error] :as m}]
+          (is (nil? error))
+          (inc! l))))))
+
 (defn -main [& args]
   (run-tests))