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

[#468] fix ns name

Browse source
This commit is contained in:
Michiel Borkent 2020-08-12 09:39:19 +02:00
parent f091eeddd9
commit 71e2957ecc
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/babashka/impl/datafy.clj
View file

@ -1,13 +1,12 @@
(ns babashka.impl.datafy (ns babashka.impl.datafy
{:no-doc true} {:no-doc true}
(:refer-clojure :exclude [create-ns]) (:require [babashka.impl.common :refer [ctx]]
(:require [clojure.core.protocols :as p] [clojure.core.protocols :as p]
[clojure.datafy :as datafy] [clojure.datafy :as datafy]
[clojure.reflect] [clojure.reflect]
[sci.core :refer [create-ns copy-var]] [sci.core :as sci :refer [copy-var]]
[sci.impl.namespaces :refer [sci-ns-name sci-ns-publics sci-ns-imports sci-ns-interns]] [sci.impl.namespaces :refer [sci-ns-name sci-ns-publics sci-ns-imports sci-ns-interns]]
[sci.impl.vars] [sci.impl.vars])
[babashka.impl.common :refer [ctx]])
(:import [sci.impl.vars SciNamespace])) (:import [sci.impl.vars SciNamespace]))
(defn- sortmap [m] (defn- sortmap [m]
@ -39,7 +38,7 @@
:interns (->> n (sci-ns-interns @ctx) sortmap)} :interns (->> n (sci-ns-interns @ctx) sortmap)}
(meta n)))) (meta n))))
(def datafy-ns (create-ns 'clojure.data nil)) (def datafy-ns (sci/create-ns 'clojure.datafy nil))
(def datafy-namespace (def datafy-namespace
{'datafy (copy-var datafy/datafy datafy-ns) {'datafy (copy-var datafy/datafy datafy-ns)