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

simplify

Browse source
This commit is contained in:
Michiel Borkent 2020-04-22 18:09:16 +02:00
parent 22c218bcce
commit 62e4a53c90
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/babashka/main.clj
View file

@ -226,12 +226,10 @@ Everything after that is bound to *command-line-args*."))
(defn load-file* [sci-ctx f]
(let [f (io/file f)
s (slurp f)
prev-ns @vars/current-ns]
(sci/with-bindings {vars/current-file (.getCanonicalPath f)}
(try
(eval-string* sci-ctx s)
(finally (sci-types/setVal vars/current-ns prev-ns))))))
s (slurp f)]
(sci/with-bindings {vars/current-ns @vars/current-ns
vars/current-file (.getCanonicalPath f)}
(eval-string* sci-ctx s))))
(defn start-socket-repl! [address ctx]
(socket-repl/start-repl! address ctx)