diff --git a/sci b/sci index 42bd17de..870ff5cb 160000 --- a/sci +++ b/sci @@ -1 +1 @@ -Subproject commit 42bd17def34633b03d663211693eff972c9735bb +Subproject commit 870ff5cbdb75b13891b049fe961133b7c34e48fd diff --git a/src/babashka/impl/clojure/spec/alpha.clj b/src/babashka/impl/clojure/spec/alpha.clj index f2d37ab4..0aab8790 100644 --- a/src/babashka/impl/clojure/spec/alpha.clj +++ b/src/babashka/impl/clojure/spec/alpha.clj @@ -15,11 +15,12 @@ Guide: https://clojure.org/guides/spec"} babashka.impl.clojure.spec.alpha (:refer-clojure :exclude [+ * and assert or cat def keys merge]) - (:require [babashka.impl.clojure.spec.gen.alpha :as gen] - [clojure.walk :as walk] - [sci.core :as sci] - [sci.impl.evaluator :as eval] - [babashka.impl.common :refer [ctx]])) + (:require + [babashka.impl.clojure.spec.gen.alpha :as gen] + [babashka.impl.common :refer [ctx]] + [clojure.walk :as walk] + [sci.core :as sci] + [sci.lang])) (alias 'c 'clojure.core) @@ -310,10 +311,8 @@ (defn ->sym "Returns a symbol from a symbol or var" [x] - (if (var? x) - (let [^clojure.lang.Var v x] - (symbol (str (.name (.ns v))) - (str (.sym v)))) + (if (instance? sci.lang.Var x) + (sci/var->symbol x) x)) (defn- unfn [expr]