yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Send init code to trampoline repl as well

Browse source
This commit is contained in:
Colin Jones 2013-05-21 22:24:03 -05:00
parent b90d188009
commit 1679488845
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/leiningen/repl.clj
View file

@ -134,7 +134,12 @@
:exclusions [org.clojure/clojure ring/ring-core]]]})
(defn- trampoline-repl [project port]
(let [options (-> (options-for-reply project :port port)
(let [init-option (get-in project [:repl-options :init])
init-code `(do
(in-ns '~(init-ns project))
~init-option)
options (-> (options-for-reply project :port port)
(assoc :custom-eval init-code)
(dissoc :input-stream))
profile (:leiningen/trampoline-repl (:profiles project)
trampoline-profile)]