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

Fix catvec polyfill

Browse source
This commit is contained in:
Michiel Borkent 2022-05-03 23:20:36 +02:00
parent c34109d828
commit 45df5bcc8f
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/babashka/main.clj
View file

@ -257,8 +257,7 @@ Use bb run --help to show this help output.
:feature/spec-alpha %s :feature/spec-alpha %s
:feature/selmer %s :feature/selmer %s
:feature/logging %s :feature/logging %s
:feature/priority-map %s :feature/priority-map %s}")
:feature/rrb-vector %s}")
version version
features/csv? features/csv?
features/java-nio? features/java-nio?
@ -278,8 +277,7 @@ Use bb run --help to show this help output.
features/spec-alpha? features/spec-alpha?
features/selmer? features/selmer?
features/logging? features/logging?
features/priority-map? features/priority-map?)))
features/rrb-vector?)))
(defn read-file [file] (defn read-file [file]
(let [f (io/file file)] (let [f (io/file file)]
@ -340,6 +338,9 @@ Use bb run --help to show this help output.
(def clojure-main-ns (sci/create-ns 'clojure.main)) (def clojure-main-ns (sci/create-ns 'clojure.main))
(defn catvec [& xs]
(reduce into [] xs))
(def namespaces (def namespaces
(cond-> (cond->
{'user {'*input* (reify {'user {'*input* (reify
@ -390,9 +391,8 @@ Use bb run --help to show this help output.
'rewrite-clj.zip.subedit rewrite/subedit-namespace 'rewrite-clj.zip.subedit rewrite/subedit-namespace
'clojure.core.rrb-vector (if features/rrb-vector? 'clojure.core.rrb-vector (if features/rrb-vector?
@(resolve 'babashka.impl.rrb-vector/rrb-vector-namespace) @(resolve 'babashka.impl.rrb-vector/rrb-vector-namespace)
{'catvec (sci/copy-var into {'catvec (sci/copy-var catvec
(sci/create-ns 'clojure.core.rrb-vector) (sci/create-ns 'clojure.core.rrb-vector))})}
{:name 'catvec})})}
features/xml? (assoc 'clojure.data.xml @(resolve 'babashka.impl.xml/xml-namespace) features/xml? (assoc 'clojure.data.xml @(resolve 'babashka.impl.xml/xml-namespace)
'clojure.data.xml.event @(resolve 'babashka.impl.xml/xml-event-namespace) 'clojure.data.xml.event @(resolve 'babashka.impl.xml/xml-event-namespace)
'clojure.data.xml.tree @(resolve 'babashka.impl.xml/xml-tree-namespace)) 'clojure.data.xml.tree @(resolve 'babashka.impl.xml/xml-tree-namespace))