luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

yo

Browse source
This commit is contained in:
Michiel Borkent 2022-09-30 16:38:27 +02:00
parent e524cb836f
commit 082c633aef
2 changed files with 9 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
sci

@ -1 +1 @@
Subproject commit 42bd17def34633b03d663211693eff972c9735bb Subproject commit 870ff5cbdb75b13891b049fe961133b7c34e48fd

17
src/babashka/impl/clojure/spec/alpha.clj
View file

@ -15,11 +15,12 @@
Guide: https://clojure.org/guides/spec"} Guide: https://clojure.org/guides/spec"}
babashka.impl.clojure.spec.alpha babashka.impl.clojure.spec.alpha
(:refer-clojure :exclude [+ * and assert or cat def keys merge]) (:refer-clojure :exclude [+ * and assert or cat def keys merge])
(:require [babashka.impl.clojure.spec.gen.alpha :as gen] (:require
[clojure.walk :as walk] [babashka.impl.clojure.spec.gen.alpha :as gen]
[sci.core :as sci] [babashka.impl.common :refer [ctx]]
[sci.impl.evaluator :as eval] [clojure.walk :as walk]
[babashka.impl.common :refer [ctx]])) [sci.core :as sci]
[sci.lang]))
(alias 'c 'clojure.core) (alias 'c 'clojure.core)
@ -310,10 +311,8 @@
(defn ->sym (defn ->sym
"Returns a symbol from a symbol or var" "Returns a symbol from a symbol or var"
[x] [x]
(if (var? x) (if (instance? sci.lang.Var x)
(let [^clojure.lang.Var v x] (sci/var->symbol x)
(symbol (str (.name (.ns v)))
(str (.sym v))))
x)) x))
(defn- unfn [expr] (defn- unfn [expr]