From 9c1230ec912c930239eed1a4ab0b2b22e2ff5964 Mon Sep 17 00:00:00 2001 From: dnolen Date: Wed, 18 Mar 2015 14:45:02 -0400 Subject: [PATCH] cljs.repl/repl: * need to wrap -setup call in cljs.compiler/with-core-cljs so that bootstrapping evals works --- src/clj/cljs/repl.clj | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/src/clj/cljs/repl.clj b/src/clj/cljs/repl.clj index b081472b97..323db92c83 100644 --- a/src/clj/cljs/repl.clj +++ b/src/clj/cljs/repl.clj @@ -701,13 +701,15 @@ is-special-fn? (set (keys special-fns)) request-prompt (Object.) request-exit (Object.) - opts (try - (if-let [merge-opts (:merge-opts (-setup repl-env opts))] - (merge opts merge-opts) - opts) - (catch Throwable e - (caught e repl-env opts) - opts)) + opts (comp/with-core-cljs opts + (fn [] + (try + (if-let [merge-opts (:merge-opts (-setup repl-env opts))] + (merge opts merge-opts) + opts) + (catch Throwable e + (caught e repl-env opts) + opts)))) read-eval-print (fn [] (let [input (binding [*ns* (create-ns ana/*cljs-ns*)