From 62e4a53c90da2df1a14093282f23b1c09391c0d7 Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Wed, 22 Apr 2020 18:09:16 +0200
Subject: [PATCH] simplify

---
 src/babashka/main.clj | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/babashka/main.clj b/src/babashka/main.clj
index 00a9c809..1955780a 100644
--- a/src/babashka/main.clj
+++ b/src/babashka/main.clj
@@ -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)