Migrate to sci.lang.Var (#1285)

sci

@@ -1 +1 @@
-Subproject commit 05727e9ddccc9d641d1d4ba05cd444904ec66514
+Subproject commit 15ef9bd19df0446c7fc7cc245d0d36c2503dc102

src/babashka/impl/clojure/core.clj

@@ -9,7 +9,8 @@
             [sci.core :as sci]
             [sci.impl.namespaces :refer [copy-core-var core-var macrofy]]
             [sci.impl.parser :as parser]
-            [sci.impl.vars :as vars :refer [clojure-core-ns]]))
+            [sci.impl.utils :refer [clojure-core-ns]]
+            [sci.impl.vars :as vars]))
 
 (defn locking* [form bindings v f & args]
   (apply @#'locking/locking form bindings v f args))

src/babashka/impl/clojure/core/server.clj

@@ -18,7 +18,7 @@
             [babashka.impl.common :refer [debug]]
             [sci.core :as sci]
             [sci.impl.parser :as p]
-            [sci.impl.vars :as vars])
+            [sci.impl.utils :as utils])
   (:import
    [clojure.lang LineNumberingPushbackReader]
    [java.io BufferedWriter InputStreamReader OutputStreamWriter]
@@ -214,7 +214,7 @@
                                        :val (if (instance? Throwable ret)
                                               (Throwable->map ret)
                                               ret)
-                                       :ns (str (vars/current-ns-name))
+                                       :ns (str (utils/current-ns-name))
                                        :ms ms
                                        :form s})
                               true)))

src/babashka/impl/clojure/test.clj

@@ -409,7 +409,7 @@
   [x]
   (if (symbol? x)
     (when-let [v (second (resolve/lookup @ctx x false))]
-      (when-let [value (if (vars/var? v)
+      (when-let [value (if (instance? sci.lang.Var v)
                          (get-possibly-unbound-var v)
                          v)]
         (and (fn? value)
@@ -667,7 +667,7 @@
   value of key."
   {:added "1.1"}
   [key coll]
-  (swap! ns->fixtures assoc-in [(sci-namespaces/sci-ns-name @vars/current-ns) key] coll))
+  (swap! ns->fixtures assoc-in [(sci-namespaces/sci-ns-name @sci/ns) key] coll))
 
 (defmulti use-fixtures
   "Wrap test runs in a fixture function to perform setup and
@@ -779,7 +779,7 @@
   Defaults to current namespace if none given.  Returns a map
   summarizing test results."
   {:added "1.1"}
-  ([ctx] (run-tests ctx @vars/current-ns))
+  ([ctx] (run-tests ctx @sci/ns))
   ([ctx & namespaces]
    (let [summary (assoc (apply merge-with + (map #(test-ns ctx %) namespaces))
                         :type :summary)]

src/babashka/impl/error_handler.clj

@@ -108,7 +108,7 @@
           stacktrace (dedupe
                       (concat (sequence (comp (map StackTraceElement->vec)
                                               (take-while #(not (str/starts-with? (first %) "sci.impl.")))
-                                              (map render-native-stacktrace-elem))
+                                              (keep render-native-stacktrace-elem))
                                         (.getStackTrace (or (ex-cause e) e)))
                               (sci/stacktrace e)))]
       (if exit-code

src/babashka/impl/repl.clj

@@ -9,7 +9,7 @@
    [sci.impl.interpreter :refer [eval-form]]
    [sci.impl.io :as sio]
    [sci.impl.parser :as parser]
-   [sci.impl.vars :as vars]))
+   [sci.impl.utils :as utils]))
 
 (set! *warn-on-reflection* true)
 
@@ -80,7 +80,7 @@
                     (let [ret (eval-form sci-ctx expr)]
                       ret))))
       :need-prompt (or need-prompt (fn [] true))
-      :prompt (or prompt #(sio/printf "%s=> " (vars/current-ns-name)))
+      :prompt (or prompt #(sio/printf "%s=> " (utils/current-ns-name)))
       :flush (or flush sio/flush)
       :print (or print sio/prn)
       :caught (or caught repl-caught)))))