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

Process updates

Browse source
This commit is contained in:
Michiel Borkent 2020-10-21 10:23:26 +02:00
parent c69b64c61c
commit ec731a4d47
2 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
process

@ -1 +1 @@
Subproject commit 90540747422efd0ea7a0128bd2827545de1333e0 Subproject commit 117297d8b04c0018cbce127846472bfe0e7b3640

13
src/babashka/impl/process.clj
View file

@ -5,17 +5,14 @@
(def tns (sci/create-ns 'babashka.process nil)) (def tns (sci/create-ns 'babashka.process nil))
(def escape-fn (sci/copy-var process/*default-escape-fn* tns)) (def defaults (sci/copy-var process/*defaults* tns))
(def shutdown-hook (sci/copy-var process/*default-shutdown-hook* tns))
(defn process [& args] (defn process [& args]
(binding [process/*default-escape-fn* @escape-fn (binding [process/*defaults* @defaults]
process/*default-shutdown-hook* @shutdown-hook]
(apply process/process args))) (apply process/process args)))
(defn pb [& args] (defn pb [& args]
(binding [process/*default-escape-fn* @escape-fn (binding [process/*defaults* @defaults]
process/*default-shutdown-hook* @shutdown-hook]
(apply process/pb args))) (apply process/pb args)))
(def process-namespace (def process-namespace
@ -25,5 +22,5 @@
'start (copy-var process/start tns) 'start (copy-var process/start tns)
'pipeline (copy-var process/pipeline tns) 'pipeline (copy-var process/pipeline tns)
'$ (copy-var process/$ tns) '$ (copy-var process/$ tns)
'*default-escape-fn* escape-fn '*defaults* defaults
'*default-shutdown-hook* shutdown-hook}) 'default-shutdown-hook (copy-var process/default-shutdown-hook tns)})