Source
leiningen/repl.clj:55
top
(defn repl
"Start a repl session for the current project."
[project]
(let [port (dec (+ 1024 (rand-int 64512)))
server-form (repl-server project port)
server-thread (Thread. #(try (eval-in-project project server-form)
(catch Exception _)))]
(.start server-thread)
(poll-for-socket port)
(.stop server-thread)))
Comments top
No comments for repl. Log in to add a comment.