Fix for :repl-init-script. Change (File. str) to (File. (str is#))

This commit is contained in:
glynnm 2010-09-04 00:50:52 +08:00 committed by Phil Hagelberg
parent e060fcadc1
commit 74547696b0

View file

@ -9,7 +9,7 @@
(defn repl-server [project host port] (defn repl-server [project host port]
(let [init-form [:init `#(let [is# ~(:repl-init-script project) (let [init-form [:init `#(let [is# ~(:repl-init-script project)
mn# '~(:main project)] mn# '~(:main project)]
(when (and is# (.exists (File. str))) (when (and is# (.exists (File. (str is#))))
(load-file is#)) (load-file is#))
(if mn# (if mn#
(doto mn# require in-ns) (doto mn# require in-ns)