fix #738: dotted simple symbol should remain unresolved

Author: borkdude

src/sci/impl/parser.cljc

@@ -6,7 +6,8 @@
    [edamame.core :as edamame]
    [sci.impl.interop :as interop]
    [sci.impl.utils :as utils]
-   [sci.impl.vars :as vars]))
+   [sci.impl.vars :as vars]
+   [clojure.string :as str]))
 
 #?(:clj (set! *warn-on-reflection* true))
 
@@ -74,7 +75,9 @@
                     (symbol "clojure.core" sym-name-str))
                   (interop/fully-qualify-class ctx sym)
                   ;; all unresolvable symbols all resolved in the current namespace
-                  (symbol current-ns-str sym-name-str))
+                  (if (str/includes? sym-name-str ".")
+                    sym ;; unresolved class
+                    (symbol current-ns-str sym-name-str)))
               (if (get-in env [:namespaces sym-ns])
                 sym
                 (if-let [ns (get aliases sym-ns)]

test/sci/core_test.cljc

@@ -808,7 +808,8 @@
   (is (= 'foo/inc (eval* "(ns foo (:refer-clojure :exclude [inc])) `inc")))
   (is (= 'foo/inc (eval* "(ns foo) (defn inc []) `inc")))
   (is (true? (eval* "(require '[clojure.string :refer [join]]) (= 'clojure.string/join `join)")))
-  (is (true? (eval* "(ns foo) (defn inc []) (ns bar (:require [foo :refer [inc]])) (= 'foo/inc `inc)"))))
+  (is (true? (eval* "(ns foo) (defn inc []) (ns bar (:require [foo :refer [inc]])) (= 'foo/inc `inc)")))
+  (is (= '[foo.bar user/foo] (eval* "(ns user) [`foo.bar `foo]"))))
 
 (deftest defmacro-test
   (is (= [":hello:hello" ":hello:hello"]